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Abstract 


A  kinetic  model  of  the  directly  solar-pumped,  atomic  bromine  laser — operating 
on  the  Br  (4  ^Pi/2^^P  3/2)  transition  under  BBr  photolysis — ^was  developed,  executed,  and 
interpreted.  In  recognition  of  an  evolving  national  interest  in  space-based  laser 
development,  the  model  presumed  operation  on  a  space  station  platform.  Mathematical 
representations  for  such  processes  as  incident  solar  flux,  molecular  photolysis,  and 
quantum  yield  were  combined  with  those  for  chemical  reactions  and  lasant  flow  in  a  set 
of  nonlinear  differential  equations  designed  to  model  temporal  behavior  of  chemical  and 
photon  populations  within  the  gain  cell.  Numerical  solutions  to  these  equations  indicate 
that  a  well-engineered  IBr  laser  is  capable  of  generating  1.2  kilowatts  of  continuous-wave 
(CW)  power  under  a  pumping  concentration  of  20,000  solar  units.  Such  performance 
translates  to  an  efficiency  of  roughly  0.29%,  appreciably  better  than  the  0.1%  ascribed  to 
the  heretofore  leading  solar-pumped  competitor.  An  extensive  analysis  of  kinetic  results 
suggests  the  unanticipated  conclusion  that,  under  proper  parameter  selection,  sustained 
CW  oscillation  can  be  achieved  absent  any  flow  mechanism  whatsoever.  This  result 
seems  most  strongly  predicated  upon  proper  bandpass  discrimination:  a  457-545  nm 
range  of  incidence  produced  optimal  results.  Sensitivity  analysis  revealed  a  strong 
degree  of  competition  among  the  laser’s  constituent  processes;  two-body  quenching  and 
exchange  reactions  were  predominant.  With  the  significant  exception  of  iodine 
recombination,  three-body  processes  were  negligible.  Thermal  increases,  as  well  as  rapid 
growth  of  atomic  iodine,  appear  to  pose  the  greatest  kinetic  threat  to  CW  lasing. 


vii 


KINETIC  MODEL  OF  A  SPACE-BASED, 
Br  laser  PLHVIPED 

BY  SOLAR  PHOTOLYSIS  OF  IBr 


L  Introduction 

In  1980,  amid  increasing  national  interest  in  the  development  and  use  of  high- 
power  laser  systems,  the  National  Aeronautics  and  Space  Administration  (NASA) 
chartered  a  working  group  to  investigate  the  viability  of  deploying  laser  devices  on  a 
space-based  platform  [1].  Such  a  capability  would  be  enormously  helpful  for  carrying 
out  an  array  of  functions,  including  communications,  power  beaming,  or  elimination  of 
orbital  debris.  However,  the  question  of  which  specific  laser  system  would  best  be  suited 
for  such  a  platform  has  remained  an  elusive  one.  Due  to  costs  associated  with  space 
transport,  for  instance,  any  system  with  conventional  (i.e.,  chemical)  fueling  requirements 
would  be  extremely  expensive  to  sustain  in  orbit. 

In  the  ultimate  analysis,  a  solar-pumped  laser  system  proves  perhaps  the  most 
compelling  option  for  a  space-based  device.  With  proper  engineering  and  design,  such  a 
system  could  be  self-contained,  self-sufficient,  and  minimally  expensive  to  operate  after 
initial  deplo5ment.  However,  the  solar-pumped  laser  scenario  introduces  a  number  of 
technical  concerns  and  liabilities  that  make  proper  lasant  selection  an  even  more  difficult 
task.  Working  within  the  inflexible  constraints  imposed  by  the  sun  (radiative  spectrum, 
intensity,  etc),  one  can  combine  computer  modeling  and  parametric  selection  to 
accurately  assess  the  viability  of  a  potential  system. 
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Due  to  favorable  pumping  characteristics,  the  iodine  monobromide  (IBr) 
photodissociative  laser  is  a  promising  candidate  for  this  undertaking.  Although  there  are 
technical  issues  that  must  be  remedied  before  IBr  may  be  considered  a  competitive 
alternative  for  the  solar-pumped  laser,  this  process  can  be  greatly  accelerated  by  the  use 
of  computational  methods.  Alternatively,  computer  analysis  can  effectively  determine 
whether  the  proposed  process  is  inherently  unfeasible.  In  either  event,  merits  of  the  IBr 
laser  should  be  duly  considered  and  compared  to  other  potential  candidates  for  this 
important  role  in  technological  development. 

1.1.  Background 

To  effectively  meet  its  proposed  mission  demands,  a  space-based  laser  system 
must  satisfy  several  technical  criteria,  including  continuous  wave  (CW)  oscillation,  self¬ 
sustainability  (to  include,  at  a  minimum,  effective  recycling  of  laser  gain  material),  and 
efficient  pumping.  For  the  directly  solar-pumped  laser,  an  “efficient”  pumping  process  is 
one  that  is  spectroscopically  well-matched  to  the  solar  spectrum. 

Molecular  photodissociation  is  a  process  that  seems  to  most  effectively  lend  itself 
to  this  pumping  scenario.  Given  a  photon  flux  of  sufficient  energy,  a  molecular  precursor 
can  be  disassembled  into  its  atomic  and/or  molecular  constituents  [2].  Under  proper 
conditions,  the  dissociation  results  in  production  of  spin-orbit  excited  atoms  that  can 
serve  as  the  upper  state  of  a  lasing  transition.  In  the  case  of  iodine  monobromide,  the 
dissociation  processes  are: 


IBr  +  hv^I  +  Br(4^Pi/2), 

(1-1) 

IBr  +  hv-»I  +  Br(4^P3/2) 

(1-2) 
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where  Br  (4  ^Pi/2)  and  Br  (4  are  spin-orbit  excited  and  ground  bromine  atoms, 
respectively  [3, 4].  Stimulated  emission  is  then  achieved,  at  2.714  pm,  on  the  resulting 
Br  (^Pi/2  — >  ^P3/2)  transition.  A  wavelength-dependent  quantum  yield,  (piBr,  determines  the 
proportion  of  bromine  atoms  that  realize  an  excited  state;  population  inversion  is 
established  by  exploiting  this  yield  in  a  laser  gain  cell.  Other  molecular  precursors,  such 
as  those  within  the  presently  more  “popular”  class  of  perfluoroalkyl  iodides,  operate  on 
the  same  principle  but  with  decidedly  higher  quantum  yields — often  near  unity  [5].  The 
specific  precursor  r-C4F9l,  which  serves  as  a  parent  molecule  for  spin-orbit  excited  iodine 
atoms,  is  one  that  has  been  extensively  studied,  with  considerable  success,  in  previous 
investigations  of  the  solar-pumped  laser  [5, 6, 7]. 

Spectral  efficiency  provides  perhaps  the  most  compelling  argument  for  selection 
of  IBr  as  a  photolytic  precursor.  As  depicted  in  Figure  1-1,  the  IBr  absorption  coefficient 
is  much  better  matched  to  the  sun’s  spectral  profile  than  is  r-C4F9l.  Under  solar 
illumination,  therefore,  a  much  higher  percentage  of  incident  photons  fall  within  the 
absorption  range  of  IBr:  a  full  23  percent,  compared  to  2  percent  for  r-C4F9l.  Moreover, 
the  peak  absorption  cross  section  of  IBr  is  nearly  twice  that  of  t-C4F9l.  At  least  in  prima 
facie  terms,  then,  this  higher  “spectral-absorptive”  efficiency  translates  into  more  modest 
pumping  requirements,  and  would  perhaps  relax  the  size  and  expense  associated  with  a 
solar  collection/reflection  module. 


3 


^/‘^IBr(max) 

Mq^(max) 


Figure  1-1.  Spectral  comparison  of  IBr  and  t-C4F9l  absorption  coefficients  (300K) 
with  solar  photon  flux. 


Undesirable  factors,  such  as  an  inferior  quantum  yield  and  kinetic  interference, 
serve  as  detractions  to  IBr  selection.  Indeed,  previous  studies  [8, 9]  indicate  that  the 
system  is  hindered  by  slow  depopulation  of  the  lower  laser  level;  as  a  result,  population 
inversion  is  difficult  to  sustain  and  CW  operation  is  frustrated.  Nevertheless,  potential 
advantages  of  this  candidate  warrant  its  further  investigation. 

Central  to  the  proposed  modeling  of  a  solar-pumped  laser  is  the  development  of 
an  accurate  excitation  mechanism.  The  characteristics  of  a  solar  pump  are  implicitly 
dependent  upon  such  factors  as  absorption  cross  section  of  the  precursor,  spectral  profile 
of  the  solar  source,  and  overall  concentration  of  incident  radiation.  Moreover,  great  care 
must  be  given  to  selection  of  the  spectral  range  used  in  pumping  the  system.  For, 
although  a  given  precursor  may  exhibit  photodissociation  over  a  broad  range  of  spectral 
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incidence,  the  quantum  yield  of  excited  atoms  via  photolysis  (tp)  is  generally  wavelength- 
dependent  [3, 4].  As  such,  full-spectmm  pumping  may  actually  fmstrate  population 
inversion  outside  of  a  comparatively  narrow  range. 

The  solar  pumping  rate  of  excited  Br  atoms,  in  moleeules/sec-crn^,  is  given  by  a 
modified  expression  of  Beer’s  Law  [7]: 

S 

Rp  =1^  ^o^)m 

Dp  A, 

where  F(^)  is  the  incident  photon  flux;  Sc  is  the  effeetive  concentration  of  incident  solar 
radiation;  Dp  characterizes  the  photon  path  length;  A,i  and  Xx  designate  the  lower  and 
upper  bounds  (respectively)  of  incident  wavelength  which  are  allowed  to  enter  the  gain 
cell. 

Modifications  of  the  above  expression  may  be  used  to  likewise  model  the 
pumping  rate  of  other  atoms  generated  by  the  photodissociation  of  IBr,  L,  or  Br2.  In 
addition,  appropriate  quenching,  exchange,  and  recombination  processes  must  be 
adequately  ineluded.  Thus,  by  addressing  all  kinetie  processes  at  work  in  the  laser  and 
eoupling  them  with  appropriate  rate  equations,  a  time  evolution  of  the  entire  system  can 
be  generated  and  observed.  Peripheral  engineering  topics  can  then  be  more  specifieally 
assessed. 

1.2.  Problem  Statement 

Despite  its  natural  affinity  for  the  solar  spectram,  the  IBr  photodissociative  laser 
demonstrates  kinetic  behavior  that  has  discouraged  its  selection  as  a  leading  candidate  for 
space-based  deployment.  Undesirable  factors — such  as  an  inferior  quantum  yield,  rapid 


1-e' 


.Dp] 


dX. 


(1-3) 
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lasant  quenching,  and  slow  depopulation  of  the  lower  laser  level — counteract  the 
advantages  of  using  IBr  precursor  within  a  sealed  gain  cell.  As  a  result,  population 
inversion  is  difficult  to  sustain  and  CW  oscillation  is  frustrated. 

This  difficulty  has  allowed  alternate  laser  systems — ^many  with  starkly  lower 
spectral  efficiencies — ^to  shift  to  the  forefront.  However,  no  definitive  examination  of  the 
solar-pumped,  continuous-wave  IBr  laser  has  been  performed  to  date.  The  introduction 
of  a  nominal  flow  process,  or  other  minor  design  changes,  may  prove  sufficient  for 
eliminating  this  disqualifying  factor.  Nor  has  the  IBr  laser  been  compared,  in  absolute 
performance  terms,  to  the  established  line  of  perfluoroalkyl-based  iodine  competitors. 
The  ongoing,  independent  efforts  by  NASA  and  the  Air  Force  Research  Laboratory  (the 
sponsor  of  this  thesis)  to  construct  and  deploy  a  space-based  laser  would,  in  the  author’s 
opinion,  be  greatly  assisted  by  such  a  parameterization  and  comparison.  Whether 
computer  modeling  reveals  the  IBr  system  to  be  preferable  or  not,  a  refined  evaluation  of 
laser  candidates  will  ultimately  aid  the  realization  of  this  provocative  objective. 

1.3.  Research  Objectives 

The  purpose  of  the  present  research  is  to  develop  and  execute  a  computer  code 
package  which  accurately  simulates  all  kinetic  processes  associated  with  a 
Br  (4  ^Pi/2  ->  4  ^P3/2)  laser,  pumped  by  photolysis  of  IBr  via  concentrated  solar  radiation. 
Investigation  of  the  resulting  numerical  solutions  may  serve  as  the  basis  for  critical 
analysis  and  design  of  an  IBr  laser.  End  objectives  of  this  thesis  are  threefold: 
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1.  Confidently  assess  the  severity  of  those  technical  issues  serving  as  barriers  to 
development  of  a  continuous-wave,  solar-pumped  IBr  laser  system  suitable  for 
deployment  on  a  space  platform. 

2.  Characterize  the  envelope  of  design  parameters  that  mitigate  or  circumvent 
such  technical  obstacles,  allow  CW  oscillation,  and  optimize  overall  laser  performance. 

3.  Compare  anticipated  performance  characteristics  to  those  already 
demonstrated  by  established  solar-pumped  laser  candidates  (e.g.,  r-C4F9l),  evaluate 
relative  strengths  and  weaknesses,  and  recommend  candidate  selection. 

Successfully  accomplished,  these  undertakings  will  constitute  an  important  tool  in 
evaluating  the  technical  feasibility  of  a  solar-pumped,  space-based  IBr  laser.  Favorable 
results  may  provide  a  reason  for  reconsidering  this  laser  in  future  developments  of  space 
exploration.  Unfavorable  results  would  implicitly  reaffirm  the  attractiveness  of  currently 
scrutinized  lasers.  Either  outcome  may  offer  contributions  to  the  ongoing  research  effort 
of  a  space-based  laser. 
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1.4.  Assumptions 

The  kinetic  model  presented  in  this  thesis  is  designed  to  accept  a  wide  range  of 
user-defined  parameters.  In  this  manner,  one  can  phenomenologically  optimize  the 
operating  conditions  for  the  laser.  However,  there  are  some  general  assumptions  that  are 
fundamental  to  the  model  and  therefore  not  malleable  to  user  preferences.  Therefore,  to 
better  clarify  the  effective  constraints  and  limitations  of  the  model,  it  is  important  to 
define  these  assumptions  at  the  outset. 

Aside  from  its  unusual  pumping  methods,  the  laser  system  modeled  in  this  paper 
is  assumed  to  be  of  simple,  standing-wave  variety.  A  gain  cell,  positioned  within  a 
plano/concave  resonator  cavity,  contains  the  gain  material  (IBr  precursor,  as  well  as 
fragment  products)  and  is  assumed  to  have  an  imperfectly-transmitting  window  on  each 
of  its  ends.  For  cases  in  which  gain  flow  is  simulated,  it  is  assumed  that  such  removal 
occurs  in  either  transverse  or  longitudinal  directions  with  respect  to  the  tube  axis.  No 
assumptions  are  immediately  advanced  with  respect  to  the  laser’s  pumping  geometry;  this 
treatment  will  be  undertaken  later,  in  light  of  computational  data. 

The  effects  of  temperature  on  chemical  operation  of  the  laser  are  significant,  yet 
difficult  to  model.  Therefore,  such  effects  have  not  been  explicitly  integrated  into  the 
computer  algorithm.  However,  a  qualitative  discussion  on  the  implications  of  thermal 
management,  performed  with  an  ad  hoc  code  modification,  is  presented  in  Section  V. 

1.5.  Nomenclature 

A  brief  word  is  in  order  to  clarify  some  specific  terms,  commonly  repeated 
throughout  this  thesis,  associated  with  the  IBr  laser  system.  Consistent  with  accepted 
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convention  [4],  “Br  ”  and  “Br”  labels  will  be  liberally  used  as  a  convenient  substitute  for 
spin-orbit  excited  (Br  (4  and  ground-state  (Br  (4  ^Pa/i))  bromine  atoms.  Spin-orbit 
states  of  iodine  atoms  are  similarly  defined:  I  s  I  (5  I*  =  I  (5  ^Pi/2). 

The  terms  “number  density,”  “concentration,”  and  “population”  are  used 
interchangeably  in  this  work  to  describe  an  important  laser  metric:  the  number  of  atoms 
or  molecules  (depending  on  the  species)  per  unit  volume,  [cm'^J.  Owing  to  the  common 
need  for  this  quantity  when  performing  kinetic  analysis,  the  popular  designator  [Ni]  will 
be  used  as  an  occasional  surrogate  for  “number  density  of  species  Ni.” 

The  generic  shortcut  designations  Ni,  Ni ,  and  [Ni]  prove  particularly  convenient 
in  plots  or  tables  involving  kinetic  data,  wherein  brevity  is  paramount.  Therefore,  in 
these  venues,  they  are  used  almost  exclusively  over  the  more  complete  definitions. 

1.6.  Sequence  of  Presentation 

In  general,  this  thesis  is  presented  in  the  same  chronological  order  as  it  was 
developed.  After  providing  a  survey  of  relevant  laser  research,  the  author  will  introduce 
ELSA  (EBr  Laser  Simulation  Algorithm),  the  computer  program  written  to  examine 
kinetic  behavior  of  an  IBr  photolysis  laser.  By  detailing  the  mathematical  expressions 
used  to  simulate  key  laser  processes — as  well  as  the  assumptions  and  simplifications 
inherent  in  such  expressions — ^the  theoretical  foundations  of  the  ILS  A  kinetic  model 
should  be  well  established. 

Derivation  of  the  computer  model  is  followed  by  its  use;  accuracy  is  validated  by 
comparison  with  independently-published,  experimental  results.  Executing  the  ILSA 
model  several  times,  with  wide  variations  in  its  input  parameters,  provides  a  means  of 
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revealing  the  central  processes  at  work  in  an  EBr  photolysis  laser.  This  anchor  of 
understanding  has  an  important  function:  it  facilitates  accurate  sensitivity  analysis,  upon 
which  reasonable  simplifications  to  the  model  can  be  made. 

In  an  attempt  to  exploit  these  kinetic  simplifications,  a  time-independent,  analytic 
solution  is  then  considered.  It  is  the  continuous-wave,  rather  than  pulsed,  properties  of 
the  IBr  laser  that  are  of  prime  interest  to  a  potential  user.  Therefore,  the  prospect  of  a 
steady-state  model,  minimally  complex  in  design,  is  quite  attractive.  Such  a  model  would 
be  an  efficient  tool  for  further  refining  the  laser’s  parametric  envelope. 

Data  consolidated  from  each  type  of  IBr  laser  model  are  presented,  discussed,  and 
analyzed  in  final  form  in  Section  V.  Using  efficiency  as  a  prime  criterion,  laser 
performance  is  optimized  through  parameter  selection  and  then  compared,  in  objective 
terms,  to  the  r-C4F9l  system. 

In  a  concluding  section,  the  more  immediately  relevant  issue  of  design  viability  is 
addressed.  Based  upon  results  culled  from  ILSA  simulations,  the  author  will  offer 
recommendations  on  whether  the  IBr  photolysis  laser  is  worthy  of  further  study  and 
development. 
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11.  Background 


2.1.  Literature  Review 

2.1.1.  Characteristics  of  Solar-Pumped  Lasers 

Due  to  the  restrictive  nature  of  the  space  environment,  there  are  few  laser  systems 
that  could  be  considered  ideally  suited  to  deployment  in  this  setting.  Dependability  and 
mission  suitability,  while  important,  must  be  tempered  with  concerns  of  self¬ 
sustainability  and  cost  efficiency.  High-energy  chemical  lasers  are  being  investigated  by 
NASA  as  the  prime  fallback  candidate  for  weapons  missions  [1].  However,  the  costs 
associated  with  fuel  delivery  for  low-power  missions  raise  acute  questions  of  practicality. 
It  is  for  is  reason  that  the  harnessing  of  solar  radiation  is  worthy  of  vigorous 
investigation.  If  only  on  an  intuitive  level,  solar-pumped  lasers  are  ideally  suited  for 
space-based  deployment. 

Solar  pumping  is  a  term  that  has  multiple  interpretations  within  the  scientific 
community.  In  addition  to  the  more  forthright  method  of  “direct”  pumping  (in  which 
solar  radiation  is  instantaneously  collected,  concentrated,  and  re-emitted  toward  the  gain 
cell  of  a  laser  by  reflective  dish),  it  is  possible  to  fashion  solar  energy  transfer  via 
blackbody  cavity  or  photolytic  cell  arrays  [1].  In  its  first  report  on  prospective  space- 
based  lasers,  the  NASA  High-Power  Laser  Working  Group  examined  each  of  these 
methods  in  a  comprehensive  context.  Because  of  its  technical  simplicity  and  high 
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transfer  efficiency,  direct  pumping  was  deemed  the  preferable  alternative.  In  deference 
to  this  conclusion,  the  direct  method  is  likewise  assumed  throughout  this  thesis. 

Although  true  solar-pumped  laser  systems  have  been  successfully  developed  and 
operated  [10],  they  are  not  common  in  the  experimental  setting.  More  frequently, 
scientific  investigations  of  these  modules  take  the  form  of  conceptual  design  and 
computer  simulation  [5, 7, 9, 1 1].  Typically,  experimental  treatment  is  confined  to  the 
use  of  artificial  flashlamp  simulators  [6,  8, 12, 13, 14]. 

Existing  research  overwhelmingly  suggests  that  photodissociative  lasers — ^which 
operate  on  stimulated  emission  of  excited  atoms  generated  via  molecular  photolysis — are 
particularly  well  conditioned  for  direct  solar  pumping  [1,  12].  Molecular 
photodissociation  generally  occurs  within  relatively  wide  bands  of  the  optical  spectrum; 
concentration  of  solar  energy  onto  a  parent  molecule  therefore  provides  a  convenient 
mechanism  by  which  to  impart  electronic  excitation  to  a  lasant  atom.  Broad  absorption 
bands  also  present  the  added  benefit  of  eliminating  system  sensitivity  to  a  particular 
pump  wavelength;  this  is  highly  desirable  for  environments  in  which  ambient  effects  like 
vibration  are  not  easily  controlled  [15].  In  NASA’s  more  recently  published  papers,  it 
has  tacitly  concluded  that  perfluoro-t-butyl  iodide  (r-C4F9l)  is  the  most  promising 
precursor  candidate  for  the  solar-pumped  arena  [6].  As  a  result,  most  of  NASA’s  related 
research  projects  have  come  to  explicitly  assume,  construct,  or  test  the  r-C4F9l  model. 
While  the  prospect  of  an  EBr  system  has  been  briefly  mentioned  in  NASA’s  earlier 
papers,  further  study  of  this  candidate  was  discouraged  due  to  its  propensity  for 
bottlenecking  [1]. 
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Given  the  wide  spectral  character  of  solar  radiation,  total  operating  efficiencies  of 
solar-pumped  lasers  are  manifestly  low.  Even  the  favored  t-C4F9l  precursor  offers  a 
practical  efficiency  of  no  better  than  0.1  percent  [6].  While  such  performance  is  certainly 
acceptable  in  economic  terms,  the  immediate  aim  of  any  insolance-based  system  should 
be  to  optimize  the  overall  spectral  match  between  source  and  device.  As  mentioned 
previously,  it  is  largely  this  consideration  which  serves  as  the  strongest  argument  for  IBr 
selection. 

2.1.2.  The  IBr  Fhotodissociative  Laser 

In  1969,  with  the  success  of  other  photolytically-driven  lasers  well  established, 
Giuliano  and  Hess  constructed  and  operated  the  first  IBr  photodissociative  laser  [16].  In 
their  study,  the  experimenters  obtained  Br*/Br  inversion  via  flash  photolysis  by  a  540  J 
xenon  flashbulb  with  firing  duration  of  15  [is.  The  resulting  laser  pulse  was  roughly  5  |j,s 
in  duration,  with  a  peak  output  power  of  50  W.  Aside  from  establishing  the  viability  of 
an  IBr  laser,  the  Guiliano  and  Hess  study  also  constituted  one  of  the  first  kinetic 
examinations  of  bromine/iodine  interaction  under  intense  photolysis.  Many  of  these 
observations  were  encouraging  in  their  implications  for  future  IBr  laser  devices.  Of 
particular  note  was  a  rapid  regeneration  of  photofragments  into  the  initial  IBr  precursor:  a 
three  millisecond  lapse  time  was  sufficient  for  restoring  IBr  concentrations  almost 
completely  to  pre-dissociated  levels.  Predictably,  this  phenomenon  supported  excellent 
reproducibility  of  performance  over  relatively  modest  relaxation  intervals.  For  this 
reason,  Guiliano  and  Hess  asserted,  the  IBr  laser  exhibits  an  engineering  advantage  rare 
within  the  family  of  chemical  lasers:  the  ability  to  repetitively  lase — several  hundred 
times  per  second — ^without  assistance  from  a  vacuum  flow  system. 
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A  significant  by-product  of  the  Guilano/Hess  paper  was  experimental  resolution 
of  previously  conflicting  IBr  spectroscopy  studies.  The  production  of  excited  bromine 
(rather  than  iodine)  atoms  upon  IBr  photodissociation  was  confirmed,  and  proved  itself  to 
be  an  issue  of  interest  for  other  researchers  in  the  ensuing  years.  Indeed,  independent 
investigations  of  IBr  photodissociation,  Br  (^Pi/2)  quantum  yields,  and  iodine/bromine 
kinetic  rate  coefficients  were  all  soon  performed  extensively,  thus  solidifying  the 
theoretical  foundations  of  IBr  laser  dynamics  [3, 4, 17, 18, 19, 20, 21, 22, 23]. 

A  1983  IBr  laser  study  by  Zapata  and  De  Young  qualitatively  supported  the 
earlier  results  by  Guilano  and  Hess,  but  also  presented  methods  for  conditionally 
improving  laser  performance  [8].  The  insertion  of  neon  buffer  gas  into  the  gain  cell,  for 
instance,  expedited  recombination  of  IBr  photofragments  after  photolysis.  As  a  result, 
thermal  increases  were  lessened  and  laser  pulse  duration  was  extended  to  more  than  fifty 
microseconds  under  favorable  circumstances.  While  suspecting  that  atomic  iodine  was 
the  dominant  Br  (^Pi/2)  quencher,  Zapata  and  De  Young  attributed  the  root  cause  of  lasing 
extinction  to  temperature  increases  within  the  gain  cell. 

Concurrent  with  the  Zapata/De  Young  study  was  one  of  the  first  computational 
modeling  efforts  of  the  IBr  laser,  undertaken  by  Harries  and  Meador  [9].  Their  results 
served  to  reinforce  the  interpretation  of  atomic  iodine  as  a  predominant  bromine 
quencher.  The  computer  model  also  impressed  the  significance  of  the  exchange  reaction 
Br  +  IBr  ^  I  +  Brj,  which  enables  lasing  by  continually  removing  ground  state  bromine 
atoms  and  thus  minimizing  buildup  of  the  lower  laser  level.  Based  on  their  analysis, 
Harries  and  Meador  discarded  the  effects  of  three-body  recombination  as  kinetically 
unimportant. 
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Since  the  early  1980’s,  further  investigation  of  the  IBr  laser  as  a  solar-pumped 
candidate  has  been  modest  at  best.  The  discovery  of  several  iodine-based  precursors — 
each  exhibiting  excellent  I  (^Pi/2)  quantum  yields  and  only  modest  quenching  effects — 
has  driven  the  bottleneck-prone  IBr  candidate  from  high-level  consideration.  Despite 
this,  the  IBr  photodissociative  laser  has  recently  enjoyed  renewed  interest  under  alternate 
excitation  scenarios.  For  instance,  because  of  the  high  Br  (^Pi/2)  quantum  yield  from  IBr 
photolysis  at  500  nm,  frequency-doubled  Nd:  YAG  (532  nm)  laser  beams  are  now  an 
attractive  method  of  pumping  the  IBr  laser  [21, 24].  The  efficiency  of  Nd:YAG  pumping 
also  provides  flexibility  in  application.  For  instance,  inserting  small  partial  pressures  of 
alternate  lasants  (e.g.,  nitrous  oxide)  into  the  IBr  gain  cell  enables  realization  of 
electronic-to- vibrational  energy  transfer  lasers  [15, 25].  These  advances  notwithstanding, 
consideration  of  the  IBr  photodissociation  laser  as  a  viable  candidate  for  solar-pumped, 
space-based  operation  has  all  but  dissipated.  By  all  indications,  this  rejection  is  founded 
in  the  perceived  difficulty  of  obtaining  continuous-wave  oscillation.  As  a  result, 
contemporary  studies  of  the  IBr  laser  are  almost  exclusively  confined  to  pulsed  operation 
under  laser  pumping. 

2.1.3.  Space-Based  Resonator  Design 

Since  NASA’s  first  step  towards  space-based  laser  development  in  1980, 
engineering  contributions  to  solar-pumped  laser  research  have  grown  considerably  in 
both  number  and  scope.  In  a  recent  attempt  to  conceptually  address  the  demands  of  both 
physics  and  mechanics  in  construction  of  a  solar-pumped,  space-based  laser,  NASA 
researchers  Choi  et  al  presented  a  hypothetical  module  design  that  could  be  used  as  the 
basis  for  such  a  system  [7].  In  it,  the  researchers  propose  an  iodine-based 
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photodissociative  laser — directly  pumped  by  a  pseudo-parabolic  reflecting  dish — ^based 
upon  the  master  oscillator/power  amplifier  (MOP A)  principle.  A  diminutive  r-C4F9l 
laser,  with  correspondingly  modest  pumping  demands,  constitutes  the  master  oscillator 
for  the  system.  Spatial  filters  are  used  to  select  a  single  transverse  mode  of  CW 
oscillation,  with  a  target  output  power  of  10  watts.  A  pre-amplifier/power  amplifier 
combination,  powered  by  photolytic  cells  on  the  periphery  of  the  reflecting  dish,  is  then 
used  to  magnify  the  beam  output  by  a  factor  of  5,000.  If  such  a  design  were  successfully 
implemented,  the  resulting  laser  module  would  be  able  to  serve  as  a  source  of  power  (via 
beaming)  for  satellites,  surface  rovers,  or  spacecraft.  Additional  demands  for  power 
could  be  satisfied  through  the  coupling  of  multiple  laser  modules  into  an  array. 

Current  engineering  research  is  applicable  to  this  thesis  in  a  very  central  manner. 
Elements  of  the  Choi  study,  for  instance,  provide  general  guidance  for  selecting  realistic 
parameter  ranges  (cavity  size,  geometry,  etc.)  for  computational  analysis.  Two 
suggestions  in  particular  warrant  mention.  Firstly,  the  desire  for  a  high-power  beam  in 
space  does  not  necessitate  construction  of  a  high-power  master  oscillator.  With 
numerous  methods  available  for  power  amplification  (among  them,  the  above-mentioned 
MOPA  principle),  the  chief  objective  should  be  a  stable,  but  energetically-modest  output 
beam.  In  terms  of  scale,  this  would  translate  to  a  cavity  length  on  the  order  of  a  meter. 
Adopting  this  smaller,  lower-intensity  laser  system  would  mitigate  temperature  increases 
within  the  gain  cell,  and  considerably  reduce  the  requisite  size  of  a  solar  reflector. 
Secondly,  the  Choi  study  offers  novel  arrangements  for  possible  pumping  geometries.  A 
strong  case  is  made  for  selection  of  a  pseudo-parabolic  reflecting  dish,  positioned  at 
either  extreme  of  the  gain  tube,  such  that  emitted  radiation  is  contrived  to  a  frustum-like 
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focal  volume  matched  to  the  laser  tube’s  geometry.  Figure  2-1  reflects  the  important 
optical  distinction  between  true  and  pseudo-parabolic  designs.  Whereas  the  shape  of  a 
true  parabola  serves  to  direct  incident  radiation  on  a  single  focal  point,  judiciously 
broadening  the  curvature  of  such  a  dish  allows  a  distribution  of  radiative  power  over  the 
entire  length  of  the  gain  cell  (Figure  2-1).  This  quasi-axial  pumping  arrangement  should 
be  considered  a  favorable  alternative  to  other  (e.g.,  side-oriented)  pumping  geometries. 


2.2.  Limitations  of  Previous  Modeling  Efforts 


Although  numerous  papers  have  alluded  to  the  prospect  of  a  sustainable, 
continuous-wave  IBr  laser  [8, 9],  to  date  no  published  study  has  resolutely  addressed  the 
engineering  demands  of  such  a  product.  Nor  have  previous  modeling  efforts  considered 
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the  effects  of  lasant  flow  within  their  modeling  efforts.  Historically,  treatment  of  the 
continuous-wave  scenario  has  most  conunonly  taken  the  form  of  supposition,  founded 
upon  observed  or  modeled  results  of  the  pulsed  IBr  laser.  By  examining  the  temporal 
duration  of  a  sealed-cell  laser  pulse,  one  can  reasonably  estimate  the  rapidity  with  which 
IBr  photofragments  (and  their  resulting  halogen  products)  must  be  flushed  from  the  gain 
cell  to  sustain  continuous  operation.  While  this  approach  yields  a  fair  heuristic  estimate, 
it  does  not  constitute  solution  of  the  problem.  This  thesis  will  propose  a  straightforward 
representation  of  flow  that  can  be  used  to  further  develop  parameters  of  the  IBr  laser. 

In  addition  to  developing  new  kinetic  processes  for  the  IBr  laser  model,  this  thesis 
will  address  some  of  the  methodology  employed  by  previous  studies.  The  Harries/ 
Meador  work,  which  constituted  the  first  (and  as  yet,  only)  computational  model  of  a 
solar-pumped  IBr  laser,  was  founded  upon  questionable  precepts.  It  is  important  that 
reasons  for  this  departure  be  documented  and  explained  a  priori,  while  avoiding 
unnecessary  indulgence  into  related  technical  detail.  Full  motivation  for  these  alternate 
approaches  will  be  provided  in  the  following  section. 

Perceived  limitations  of  the  Harries/Meador  study  are  as  follows: 

1.  In  modeling  of  the  solar  pumping  process,  no  upper  or  lower  wavelength 
cutoff  was  defined  for  IBr,  Br2,  or  I2  photodissociation  within  the  gain  cell,  implying  the 
absence  of  a  bandpass  filter  in  the  module.  Despite  this,  a  quantum  yield  of  70.4  percent 
was  used,  over  the  entire  photolysis  spectrum,  to  model  the  rate  of  Br  (^Pi/2)  generation. 

In  fact,  this  high  a  yield  is  applicable  to  only  a  peak  incident  wavelength  of  roughly  500 
nm  [3, 4].  Wavelengths  above  or  below  this  value  induce  considerably  lower  quantum 
yields,  and  should  be  so  reflected  in  the  model.  Indeed,  this  paper  shall  demonstrate  that 
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unrestricted  solar  excitation  produces  so  weak  a  Br*/Br  generation  ratio,  that  only  short¬ 
term  (pulsed)  lasing  is  energetically  possible  under  these  conditions. 

2.  Photodissociation  rates  for  each  of  the  three  diatomic  molecular  species  (IBr, 
Br2,  and  I2)  were  presented  as  linearly  dependent  upon  both  solar  flux  and  molecular 
concentration.  However,  to  be  precise,  a  mathematical  model  for  photon  absorption 
should  account  for  attenuation  effects  along  the  photolysis  path  length,  as  given  by  the 
Beer-Lambert  Law  [26].  Furthermore,  the  absorption  rate  of  a  particular  molecular 
species  is  affected  by  competition  from  other  absorbing  molecular  types.  Because  IBr, 
Br2,  and  I2  all  absorb  within  the  optical  spectrum  [27, 28],  accurate  pumping  expressions 
for  the  IBr  laser  must  include  a  simultaneous  functional  dependence  upon  each  of  these 
concentrations. 

3.  In  the  absence  of  certain  rate  coefficients  central  to  kinetic  behavior  of  an  IBr 
laser,  Harries  and  Meador  postulated  a  rate  coefficient,  based  upon  the  equilibrium 
condition  I2  +Br2  2IBr,  that  would  serve  to  restore  molecular  balance  within  the  gain 
cell.  Although  this  approach  induces  the  experimentally-observed  restoration  of  IBr  after 
dissociation,  it  does  so  by  virtue  of  an  unfounded  kinetic  mechanism.  Additionally,  while 
this  proposed  four-body  exchange  reaction  may  maintain  observed  balances  between 
molecules,  it  does  not  necessarily  provide  for  peripheral  effects  on  atomic  bromine  or 
iodine.  Such  effects  could  play  a  substantial  role  in  obtaining  population  inversion  and, 
consequently,  laser  output  power.  It  is  the  author’s  belief  that,  even  in  the  absence  of 
established  experimental  data,  fair  approximations  to  important  kinetic  coefficients  can 
be  developed  and  used  to  successfully  model  the  IBr  photodissociative  laser. 
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III.  Methodology 


Conclusions  drawn  from  a  computer  model  are  only  as  accurate  as  the  constituent 
processes  upon  which  that  model  is  founded.  For  this  reason,  it  is  important  that  each  of 
these  processes  be  explained,  documented,  and  validated  if  possible.  Indeed,  ILSA 
source  code  draws  its  architecture  from  a  wide  range  of  applied  physics  and  molecular 
chemistry  literature.  This  section  will  endeavor  to  explain  the  methods  used  to  integrate 
such  theory  into  pertinent  mathematical  representations. 

For  the  proposed  laser  system,  there  are  four  distinct  processes  needed  to  describe 
overall  kinetic  behavior.  The  first  of  these,  lasant  pumping,  is  driven  by  the  collection, 
concentration,  and  absorption  of  solar  radiation,  as  well  as  a  resulting  excitation/ 
dissociation  of  molecules  within  the  gain  cell.  Atomic  iodine  and  bromine  are  thus 
produced,  serving  to  alter  chemical  populations  and  initiate  photon  emission  within  the 
laser  cavity.  Figure  3-1  reflects  the  interaction  of  these  processes  in  the  form  of  a 
qualitative  energy  level  diagram. 
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Figure  3-1.  Energy  level  diagram  reflecting  chemistry  of  interaction  between  atoms  and 
molecules  of  an  IBr  laser  system. 


An  added  consideration  is  the  phenomenon  of  lasant  flow,  whereby  “spent”  gain 
material  is  ejected,  recombined,  then  reintroduced  to  the  cell  in  the  form  of  original 
precursor.  It  is  instructive  to  treat  each  of  these  processes  individually;  therefore,  each  is 
introduced  and  derived  in  the  order  just  described.  With  such  a  framework  developed, 
one  can  then  properly  combine  these  processes  into  a  comprehensive  laser  model. 

3.1.  Solar  Emission  &  Concentration 

Using  radiometric  methods,  the  sun  can  be  quite  accurately  modeled  as  a  5780 
Kelvin  graybody  with  emissivity  (e)  of  99%  [29,  30].  A  wavelength-dependent  variation 
of  Planck’s  Law  provides  the  expression  for  energy  exitance  (in  units  of  watts/m^  per  m 
wavelength)  of  a  generic  graybody  emitter  [31]: 
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Me(?^,T)  =  e 


(3-1) 


iKhc^  1 

^5  ghc/UT_j> 

where  h  is  Planck’s  constant,  c  is  the  speed  of  light  in  a  vacuum,  k  is  Boltzmann’s 
constant,  and  T  is  the  applicable  blackbody  temperature.  Dividing  by  the  energy  of  one 
photon  (hv)  converts  exitance  from  an  energetic  (Mg)  to  a  photometric  (Mq)  quantity. 
Because  the  phenomenon  of  photodissociation  is  driven  by  absorption  of  individual 
photons,  it  is  this  representation  which  is  central  to  the  IBr  laser.  Thus,  an  expression  for 
total  solar  exitance  is: 

m<,(X)solar  =  es 

Again  using  principles  of  radiometry,  one  can  convert  solar  exitance  into 
“terrestrial”  incidence.  The  large  relative  distance  between  earth  and  sun  allows 
treatment  of  the  sun  as  a  Lambertian  disk  source  [29].  Total  incident  flux  density,  F(^), 
in  photons/s  cm^  per  meter  wavelength,  is  given  by: 

f  Y 

F(X)  =  10-^  Mqa)soLAR  (3-3) 

k  J 

where  rsun  is  the  radius  of  the  sun,  Rs,e  is  the  relative  distance  between  sun  and  earth,  and 
a  lO"^  conversion  factor  is  used  in  anticipation  of  the  more  conventional  units  of 
photons/s  cm^  (rather  than  photons/s  m^).  Because  the  highest  practical  limit  on  satellite 
orbit  altitude  is  roughly  40,000  km  (less  than  0.03%  of  the  sun-earth  separation  distance), 
the  expression  is  virtually  identical  for  both  earth-  and  space-bound  scenarios. 

Equation  (3-3)  represents  total  photon  incidence  onto  a  surface  positioned  normal 
to  the  line  of  sight  between  source  and  receiver.  Integration  of  the  expression  over  the 
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entire  solar  spectrum  (roughly  0.2  -  5  jxm)  returns  a  total  photon  intensity  of  6.325  x  10^^ 
photons/sec  cm^,  a  reassuring  result  that  is  in  agreement  with  experimental  data  [29].  If  a 
wavelength-selective  bandpass  filter  were  used  in  the  system,  wavelength  limits  of  the 
integral  would  be  changed  accordingly. 

The  feasibility  of  any  solar-pumped  laser  is  predicated  upon  use  of  a  solar 
concentration  mechanism;  only  in  this  manner  can  sufficient  pumping  intensity  be 
generated  to  obtain  population  inversion  of  the  lasant  species.  The  most  promising 
method  of  solar  concentration — and  the  one  that  will  be  exclusively  considered  here — is 
that  of  a  parabolic  or  elliptical  reflection  dish,  with  practical  dimensions  as  large  as  8,000 
m^  [7].  Regardless  of  the  actual  geometry  or  dimension  of  such  a  dish,  current 
engineering  literature  suggests  that  a  concentrator,  suitable  for  installation  on  a  space 
station,  could  achieve  a  magnification  factor  as  high  as  20,000.  The  magnification  factor, 
S^,  is  simply  defined  in  geometrical  terms:  it  is  the  ratio  of  effective  concentrator  area 
(that  area  exposed  to  solar  incidence)  to  the  cross-sectional  area  of  the  gain  cell’s 
pumping  region.  Insofar  as  a  magnification  factor  is  more  concise  and  less 
mathematically  cumbersome  than  its  alternative,  this  convention  shall  be  used 
consistently  throughout  the  thesis. 

With  use  of  a  solar  concentrator,  then,  the  total  photon  intensity  (ly)  upon  a  laser 
tube  is  found  by  augmenting  equation  (3-3)  by  the  factor  Sc,  and  integrating  the 
expression  with  respect  to  X: 

I,  =  f  Sc  F(X)  dX  =  Sc  f  F(A.)  dX  (3-4) 

Jx,  Jx, 
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3.2.  Absorption  Cross  Section 


In  1964,  Seery  and  Britton  characterized  absorption  spectra  from  five  iodine-  and 
chlorine-based  molecules  by  spectrophotometer  and  fit  their  results  to  convolved 
Gaussian  distributions  [27].  The  end  product  of  their  study  (which  included  examination 
of  IBr  and  Br2,  two  species  central  to  this  thesis)  was  a  temperature-dependent 
representation  of  extinction  coefficients  over  each  molecule’s  range  of  optical  absorption. 
Because  of  the  confirmed  accuracy  of  these  measurements,  and  the  ease  with  which  the 
Gaussian  representations  can  be  reproduced  in  modeling  efforts,  the  Seery/Britton  study 
is  still  widely  cited  today  [3-4,  8-9, 15-16,  21, 25,  32].  Their  results  for  molecular 
bromine  and  iodine  have  therefore  been  used  as  the  basis  of  calculating  absorption  cross 
sections  in  this  thesis.  Additionally,  their  methodology  has  been  used  here  to  model  a 
corresponding  cross  section  for  molecular  iodine,  based  upon  experimental  data  reported 
by  Tellinghuisen  [28].  As  IBr,  Br2,  and  I2  are  each  optically-excitable  species  which 
exist  within  the  gain  cell  at  all  times,  accurate  models  for  all  three  are  needed  to  properly 
simulate  the  pumping  effects  of  incident  solar  radiation. 

When  plotted  as  functions  of  wavelength,  molar  extinction  coefficients  for  IBr 
and  Br2  do  not  conform  to  a  single  Gaussian  distribution.  Although  some  molecules  can 
be  accurately  represented  by  this  simple  approach  (e.g.,  CI2  and  I2),  Britton  and  Seery 
found  it  necessary  to  convolve  two  or  more  Gaussian  distributions  to  successfully  model 
IBr  and  Br2.  Using  least-squares  computational  analysis,  they  identified  those  curve 
parameters  that  would  most  closely  mirror  experimental  results.  Furthermore,  they 
introduced  a  scaling  factor  that  effectively  accounts  for  absorption  falloff  with  increasing 
ambient  temperature.  In  this  manner,  Gaussian  models  of  molecular  absorption  were 
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defined  by  three  parameters:  v,,,  frequency  of  maximum  absorption;  peak 
extinction  at  v=v„;  and  Av(T),  mean  curve  variance  in  frequency  space.  Each  individual 
curve  contributes  additively  to  the  total  extinction  coefficient  of  a  species  according  to 
the  formula: 

eTo.(v,T)  =  ^e3(v,T)  =  ^8^,3  (T)  exp{(v-v„,3)/Av3(T)p  ,  (3-5) 

j  j 


where  the  temperature-dependent  quantities  Em(T)  and  Av(T)  are  determined  by  their 
peaks  values  at  0  Kelvin  (em(0)  and  Av(0)),  as  well  as  the  applicable  molecule’s  resonant 
vibrational  frequency  (Vy): 


e„(T)  =  e„(0) 


Av(T)  =  Av(0) 


-1/2 


(3-6) 

(3-7) 


Since  extinction  coefficient  [e,  liters/mole  cm]  and  absorption  cross  section  [a, 
cm^]  are  related  as  directly  proportional  quantities,  conversion  between  the  two  involves 
a  single  multiplicative  constant  containing  Avogadro’s  number  (Na): 


a 


£  f  l+Ln(10/e)  V 

Na  ^^10“^Iiters/cm^  j 


(3-8) 


The  absorption  spectrum  of  molecular  iodine  is  observed  to  closely  follow  a 
single  Gaussian-like  distribution  about  a  peak  wavelength  of  497  nm.  Employing 
Mathematica’s®  Nonlinear  Regression  function,  data  from  the  Tellinghuisen  study  were 
successfully  fit  to  such  a  model.  Agreement  between  experimental  and  modeled  results 
for  I2  absorption  is  encouraging,  especially  within  the  critical  wavelength  range  of  460- 
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545  nm  (Table  3-1).  For  purposes  of  completeness  and  reproducibility,  the  parameters 
used  in  generating  all  three  molecular  absorption  curves  are  cataloged  in  Table  3-2. 


Table  3-1.  Experimental  and  Modeled  Extinction  Coefficients  for  I2  (liters/mol  cm) 


Xinm) 

Exp. 

Model 

A.{mn) 

Exp. 

Model 

420 

6.9 

6.46 

540 

81 

81.4 

430 

16.9 

16.4 

^v' 

550 

59 

59,0 

440 

34.5 

343  1 

560 

41 

41.3 

450 

61 

61.2 

570 

27.9 

27.7 

460 

93 

94.2 

580 

18.4 

18.0 

470 

127 

127 

590 

11.8 

11.3 

480 

153 

154 

||4 

600 

7,4 

6.95 

490 

168 

168 

610 

4.6 

4.17 

500 

167 

167 

£ 

620 

2.8 

2.46 

510 

154 

154 

630 

1.7 

1.42 

520 

131 

132 

|4 

640 

0.8 

0.811 

530 

106 

107 

650 

0.4 

0.457 

Table  3-2.  Gaussian  Modeling  Parameters  for  IBr,  Br2,  and  I2  Extinction  Coefficients 
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Figure  3-2  provides  valuable  insight  into  the  relative  magnitudes  and  wavelength 


ranges  of  IBr,  Bri,  and  I2.  When  multiplied  by  the  population  density  of  each  respective 
species,  these  absorption  cross  sections  determine  the  relative  probabilities  with  which 
molecules  absorb  incident  photons  of  a  particular  wavelength. 


[Cirf] 


Figure  3-2.  Absoiption  cross  sections  for  IBr,  Br2,  and  I2  as  a  function  of  wavelength  of 
incident  radiation  (298  K). 


3.3.  Molecular  Photodissociation 

As  a  photon  stream  passes  through  any  nonevacuated  cell,  individual  photons 
have  a  probability  of  interaction  with  the  medium  that  is  proportional  to  both  the 
absorption  cross  section,  <Jabs»  and  population  density,  N,  of  its  component  species.  This 
results  in  spatial  attenuation  of  photon  intensity  along  the  path  of  incidence,  as  expressed 
by  the  Beer-Lambert  Law  [33]: 

I  =  (3-9) 

where  is  defined  here  as  intensity  of  the  virgin  beam  (photons/s-cm^).  Dp  as  the  optical 
path  length  of  incident  radiation  (cm),  and  N  as  the  population  density  of  the  absorbing 
molecule  (cm'^). 
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When  the  medium  is  comprised  of  more  than  a  single  molecular  species,  each 
species  contributes  individually  to  the  attenuation  of  the  photon  intensity;  this 
contribution  is  determined  by  relative  magnitudes  of  each  product  (Nj-aj).  It  should  be 
noted  that  species  that  do  not  absorb  within  the  spectral  range  of  incident  photons  are 
effectively  transparent  to  this  radiation,  and  therefore  may  be  excluded.  For  the  case  of 
the  laser  currently  under  examination,  only  IBr,  Bra  and  I2  exhibit  absorption  within  the 
(predominantly  optical)  solar  radiation  spectrum.  A  total  attenuation  factor  ^  can  thus  be 
defined  as: 

%a)  =  ^N.,  a;(X)  =  N^,  Oa,  +Nb,,  Ob.,  +N,^  Oi^  (3-10) 

and  the  argument  of  the  exponential  in  equation  (3-9)  is  replaced  by  [-  ^  Dp].  For  the  case 
of  a  solar-pumped  IBr  laser,  this  expression  therefore  represents  the  intensity  of 
penetrating  solar  radiation  at  a  given  depth  Dp  below  the  exposed  gain  cell  surface. 

At  all  times,  IBr,  Bra,  and  la  molecules  “compete”  for  the  absorption  of  incident 
photons.  The  proportion  in  which  each  of  these  species  absorbs  incident  radiation  of  a 
given  wavelength  is  determined  by  the  relative  magnitudes  of  the  product  (Qj  N;)  at  that 
wavelength.  Upon  absorption  of  a  sufficiently  energetic  photon,  the  molecule 
photodissociates  into  its  two  atomic  constituents.  Therefore,  the  spatially-dependent 
expression  for  Rp^,  the  photodissociation  of  species  i,  becomes: 

Rp(i)(x)  =  I  [Ni  Oi]=I„  N;  Oi  e-^’^  (3-11) 

Integration  over  the  entire  optical  path  length  of  the  gain  cell  yields  the  total 
photodissociation  rate  (molecules/cm^-s)  for  species  i: 
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(3-12) 


Rp(l>r  =f' 

Finally,  drawing  from  the  results  of  derivations  performed  in  previous  sections, 
this  equation  can  be  modified  to  express  the  total  photodissociation  rate  of  IBr,  Br2,  or  I2. 
Because  intensity  of  incident  solar  flux  (F),  absorption  cross  section  (a),  and  the 
attenuation  coefficient  (^)  are  all  wavelength-dependent  quantities,  this  expression  must 
be  integrated  over  the  wavelength  boundaries  defined  by  an  assumed  bandpass  filter: 


Division  by  Dp  in  the  above  expression  serves  to  spatially  average  the  total 
photolysis  rate  over  the  entire  optical  path  of  solar  radiation  within  the  cell. 

3.4.  Photolysis  Yields 

Equation  (3-13)  capably  represents  the  total  rate  of  photodissociation  for  solar- 
pumped  molecules.  For  each  such  photolysis  event,  the  parent  molecule  temporarily 
undergoes  electronic  excitation,  then  dissociates  into  its  two  constituent  atoms. 
Moreover,  because  optical  photodissociation  involves  considerable  energy  transfer,  there 
is  a  nonzero  probability  that  the  process  will  incite  spin-orbit  excitation  of  one  of  the 
liberated  atoms.  This  phenomenon  is  central  to  the  IBr  laser  considered  here,  in  that  it  is 
the  Br  (^Pi/2^3/2)  transition  that  constitutes  lasing  action. 

The  interaction  potentials  that  bind  iodine  and  bromine  atoms  into  an  IBr,  Br2,  or 
I2  molecule  are  comprised  of  multiple  attractive  (bound)  and  repulsive  (unbound) 
electronic  states  [3-4,  34,  35].  Relative  energies  of  these  states  are  represented,  within 
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potential  energy  diagrams,  as  functions  of  separation  distance  between  the  two 
constituent  atoms.  At  exceptionally  large  separation  distances,  such  as  5  angstroms  or 
more,  the  energy  of  each  electronic  state  converges  to  one  of  two  distinct  asymptotic 
limits.  Every  event  of  molecular  photodissociation  ultimately  results  in  the  realization  of 
one  of  these  energetic  limbs,  which  are  characterized  by  distinct  spin-orbit  states  of  the 
two  resulting  atoms.*  The  lower,  less  energetic  limb  corresponds  to  a  state  in  which  both 
halogen  atoms  dissociate  adiabatically  into  the  ground  state  [36].  The  upper,  diabatic 
limb  is  characterized  by  dissociation  of  one  atom  into  each  state.  As  first  determined  by 
Guiliano  and  Hess,  IBr  photodissociation  is  energetically  incapable  of  producing  exited 
iodine  atoms  [16]. 

Because  the  dynamics  surrounding  excited  atom  production  from  IBr,  Br2,  and  I2 
photolysis  are  determined  by  the  energy  of  an  incident  photon,  quantum  yields  for  (^Pi/2) 
generation  are  inherently  wavelength-dependent.  Peripheral  kinetic  effects,  such  as 
curve-crossing  and  collisional  release  [3,  35],  can  induce  electronic  transitions  that 
complicate  the  matter  of  wavelength  characterization.  However,  numerous  experimental 
studies  have  been  performed  on  this  very  concern,  and  have  resulted  in  successful  yield 
curves  for  each  of  the  three  relevant  molecules.  In  Figure  3-3,  quantum  yields  culled 
from  Haugen  et  al  and  Brewer  &  Tellinghuisen  are  plotted  as  functions  of  incident 
photon  wavelength  [4,  34]. 


Upon  absorption  of  a  sufficiently  energetic  photon,  a  given  parent  molecule  will  undergo  immediate 
excitation  to  a  distinct  electronic  state  and  dissociate  into  its  constituents  along  one  of  the  two  electronic 
limbs. 
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Figure  3-3.  Comparison  of  (^Pi/2)  quantum  yields  from  photodissociation  of  IBr,  Br2,  and  I2 
molecules  as  a  function  of  incident  wavelength 


Quantum  yield  ((p)  is  defined,  for  each  molecule  at  various  wavelengths,  as  that 
proportion  of  photodissociation  events  which  result  in  exactly  one  excited  atom.  By 
including  this  term  within  the  integral  of  equation  (3-13),  the  expression  can  be  converted 
from  a  total  absorption  rate  into  a  total  Br  (^Pi/2)  or  I  (^Pi/2)  pumping  rate: 


Equation  (3-14)  therefore  represents  the  production  rate  (mol/cm^  s)  of  spin-orbit  excited 
atoms  due  to  the  photodissociation  process.  It  is  valid  for  each  of  the  three  molecular 
precursors  (IBr,  Br2  and  I2)  when  the  appropriate  parameters  are  used. 

In  the  case  of  IBr,  corresponding  production  rates  for  ground  state  bromine  and 
iodine  atoms  are  easily  obtained  by  replacing  within  the  integral  with  [l-tpiej  and 
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[1.0],  respectively.  That  is,  since  one  iodine  atom  is  always  liberated  by  IBr 
photodissociation,  it  has  an  effective  quantum  yield  of  unity.  Production  rates  for  the 
unexcited  daughter  atoms  of  Br2  and  I2  precursor  are  treated  similarly;  at  least  one 
unexcited  atom  will  emerge  from  each  dissociative  event.  Therefore,  for  both  these 
ground  state  cases,  the  effective  quantum  yield  is  [2-(p]. 

The  issue  of  quantum  yield  is  central  to  the  viability  of  any  photolytic  laser,  and 
must  be  considered  within  the  context  of  population  inversion.  Because  of  inherent 
hyperfine  degeneracies  within  the  Br  (^Pi/2)  and  Br  (^P3/2)  energy  levels  (2  and  4, 
respectively),  the  requirement  for  inversion,  AN  =  [Br*]  -  (gVg)  [Br],  is  relaxed  from 
[Br*]  >  [Br]  to  [Br*]  >  ¥2  [Br].  Thus,  the  effective  quantum  yield  (p  must  be  greater  than  or 
equal  to  0.33  to  contribute  to  inversion  [36].  As  current  data  indicates  that  these  cutoffs 
occur  at  the  457.7-545.3  nm  wavelength  boundaries,  this  is  the  spectral  region  that  will 
be  initially  considered  in  this  thesis.  It  is  assumed  that,  during  laser  operation, 
wavelengths  external  to  this  band  are  excluded  by  some  manner  of  bandpass 
discrimination. 

3.5.  Kinetic  Interaction  of  Chemical  Species 

The  rate  with  which  a  given  chemical  reaction  occurs  is  proportional  to  the 
number  density  of  each  parent  species,  as  well  as  a  unique  reaction  constant  k  applicable 
to  that  specific  process  [42].  For  instance,  in  the  generic  exchange  (eO  reaction 
AB+C— >AC+B,  the  rate  of  the  reaction  is  defined  as  Rei=[AB]  [C]  ke,.  Since  the  yield  of 
AC  and  B  from  this  reaction  is  unity,  production  rates  for  each  of  these  species  (due  to 
reaction  ei  only)  are  Rcj  as  well.  A  similar  methodology  applies  to  the  process  of  three- 


32 


body  recombination,  in  which  an  assisting  agent  M  acts  as  a  collisional  energy  sink 
between  two  atoms.  By  providing  a  transfer  mechanism  for  latent  kinetic  energy  of  the 
colliding  atoms,  the  assisting  agent  makes  chemical  assembly  of  the  atoms  energetically 
possible.  The  frequency  of  a  specific  recombination  event  (M  defined  uniquely)  is 
proportional  to  the  product  of  its  three  colliding  partners,  such  that  the  process 
A+B+Mj— >AB+Mi  has  a  frequency  of  occurrence  of  Rri=[A]-[B]  lMi]-kf,.  The  units  of 
two-  and  three-body  reaction  coefficients  are  necessarily  different:  cm  /s  and  cm  /s, 
respectively. 

For  chemical  systems  containing  energetically-excited  atoms,  another  two-body 
interaction  process  is  significant:  that  of  atomic  quenching.  In  the  case  of  long-lived 
metastable  atoms  like  Br  (^Pi/2)  and  I  (^Pi/2) — each  of  which  demonstrates  a  spontaneous 
emission  lifetime  (T21)  on  the  order  of  a  second — de-excitation  predominantly  results  via 
collisions  with  adjacent  particles  [18-19, 21].  Because  laser  performance  is  driven  by 
inversion  of  excited-  and  ground-state  lasant  populations,  the  undesirable  effect  of  atomic 
quenching  must  be  accurately  described.  Since  quenching  involves  the  interaction  of  two 
distinct  molecules  (A*  -H  B  ^  A  +  B),  the  quenching  process  is  characterized  by  two- 
body  rate  coefficients  similar  to  those  involved  in  exchange  reactions. 

By  iteratively  applying  these  reaction  coefficients  to  a  chemical  system,  the 
temporal  development  of  all  species  can  be  obtained  [37].  The  result  is  a  method  for 
confidently  evaluating  a  system  much  too  complicated  for  closed-form  analysis.  Even  in 
this  full  kinetic  treatment,  however,  it  is  unreasonable  and  unnecessary  to  include  each 
distinct  process  to  obtain  extremely  accurate  results.  Doing  so  would  require  the 
development  and  application  of  nearly  one  hundred  independent  rate  coefficients.  For 


33 


reasons  of  practicality,  therefore,  the  “full”  ILSA  model  has  invoked  the  following 
approximations. 

1.  Three-body  recombination.  Recombination  is  assisted  not  only  by  other 
chemical  species,  but  by  the  interior  surface  of  the  gain  cell  as  well.  In  fact,  any  third- 
body  medium  can  serve  as  a  combination  enabler  for  two  appropriate  atoms.  But,  under 
most  circumstances,  chemically-assisted  recombination  is  the  dominant  facilitation 
process  [29].  For  this  reason,  surface  effects  are  not  considered  in  the  kinetic  model. 
Furthermore,  because  IBr  is  by  far  the  most  populous  chemical  species  within  the  gain 
cell,  only  /Br-assisted  recombination  reactions  are  addressed  in  the  model.  By 
eliminating  all  but  this  most  common  collisional  partner,  the  number  of  required 
recombination  reactions  is  reduced  by  a  factor  of  seven.  This  is  a  desirable  result,  in  that 
(a)  many  recombination  rate  coefficients  are  poorly  documented  and  therefore  cannot  be 
adopted  with  high  confidence,  and  (b)  full  inclusion  of  the  50+  remaining  recombination 
reactions  would  prove  a  severe  burden  to  the  kinetic  code.  At  any  rate,  current  literature 
suggests  that  the  cumulative  effects  of  recombination,  when  compared  with  exchange  and 
quenching  processes  described  above,  are  kinetically  minor  [9, 37]. 

2.  Rare  (^Pi/2)-partner  reactions.  While  it  is  possible  for  excited  atoms  to 
participate  in  all  exchange  or  recombination  reactions,  the  coefficients  of  such  reactions 
are  roughly  1-2  orders  of  magnitude  less  than  those  of  their  unexcited  counterparts  [22, 
38].  By  far,  quenching  is  the  reaction  most  likely  to  consume  a  spin-orbit  excited  atom. 
For  this  reason,  exchange  reactions  involving  Br*  or  I*  species  have  been  excluded  from 
the  model.  In  the  case  of  recombination,  the  central  phenomenon  of  energy  transfer 
justifies  consideration  of  some  (  P1/2)  interaction.  Therefore,  recombination  processes 
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involving  as  many  as  one  excited  atom  are  modeled;  those  involving  the  extremely  rare 
recombination  of  two  excited  atoms  are  excluded. 

3.  Collisional  dissociation.  Concurrent  with  photolytically-driven  dissociation, 
the  halogen  molecules  within  the  gain  cell  also  undergo  collisional  dissociation  of  the 
form  AB+M  A+B+M  [39].  However,  under  typical  laser  pumping,  this  rate  is  far 
eclipsed  by  that  of  photodissociation  and  shall  not  be  included  in  the  model. 

It  is  an  unfortunate  fact  that — from  all  indications  of  present  research — quantified 
rate  coefficients  have  been  experimentally  determined  for  only  two  of  four  important 
exchange  reaction  processes  [9, 40].  More  specifically,  coefficients  for  forward  and 
reverse  directions  of  the  reaction  Br  +  IBr  ?=»  I  +  Btj  are  established;  those  for 
Br  +  I2  IBr  +  I  are  not.^  In  their  computational  treatment,  Harries  and  Meador 
explicitly  included  only  the  forward  processes  of  each  reaction,  presumably  because  the 
exothermic,  “downhill”  nature  of  these  reactions  signify  larger  rate  coefficients  than  the 
reverse  scheme  [9]. 

This  limited  representation  of  EBr  laser  cell  kinetics,  however,  does  not  reflect, 
even  in  heuristic  terms,  the  proper  kinetic  relationship  between  IBr,  Bra,  and  I2  molecular 
species.  The  execution  of  kinetic  code  with  well-developed  rate  coefficients  should,  in 
the  absence  of  an  excitation  source  and  at  298.2  K,  restore  randomized  population 
distributions  of  IBr,  Bra,  and  I2  to  an  equilibrium  ratio  determined  by  the  law  of  mass 
action:  100:4:4  [9, 41].  Associated  populations  of  atomic  iodine  and  bromine  should  be 


*  Although  there  exist  other  exchange  reactions  involving  spin-orbit  excited  atoms  of  bromine  or  iodine, 
such  reactions  are  relatively  infrequent  (due  to  energy  barriers)  and  therefore  are  not  considered  here. 
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likewise  depleted,  as  these  atoms  pursue  increased  stability  through  recombination  into 
one  of  the  three  diatomic  molecules. 

Harries  and  Meador  attempted  a  reconciliation  of  their  kinetic  code  by 
incorporating  the  inherent  equilibrium  balance  between  BBr,  I2,  and  Br2  into  an  artificial 
kinetic  rate  coefficient  that  governs  chemical  interaction  of  the  three  species.  They 
reasoned  [9]: 

At  room  temperature,  by  the  law  of  mass  action  (assuming  no 
photodissociation),  the  concentration  of  I2  and  Br2  in  IBr  is  0.04.  It 
then  follows  that  if  the  forward  reaction  2IBr  ^  I2  +  Br2  has  a  rate 
coefficient  K7,  then  [sic]  the  reverse  coefficient  Ks  is  (0.04)^  x  K7. 

While  the  law  of  mass  action  does  reflect  the  eventual  state  of  equilibrium 
between  iodine  and  bromine  species,  it  does  not  describe  the  process  by  which  this 
occurs.  The  kinetic  interaction  that  yields  this  result  is  driven  by  the  net  effect  of  all 
relevant  reaction  rates,  particularly  those  represented  by  exchange  processes.  Given  that 
all  other  significant  reaction  rates  have  been  at  least  approximately  defined,  a  proper 
quantification  for  the  reversible  Br  + 12  IBr  + 1  process  should  result  in  the  expected 
distribution  of  IBr,  Br2,  and  I2  populations  (absent  a  photolysis  source).  Because  the 
exchange  reactions  also  involve  atomic  radicals,  ancillary  effects  upon  atomic 
populations — ^not  reflected  in  the  Harries/Meador  study — would  be  anticipated  as  well. 

Relative  rates  for  forward  and  backward  processes  of  a  given  exchange  reaction 
can  be  approximated  in  a  straightforward  manner.  Using  the  difference  in  Gibbs  free 
energy  between  reactants  and  products  on  either  side  of  a  chemical  equation,  a 
proportionality  constant — ^reflecting  the  difference  in  magnitude  between  forward  and 
reverse  rate  coefficients — can  be  defined  for  a  given  temperature  [42].  For  the  exchange 
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reaction  presently  under  investigation,  it  was  determined  that  the  forward  process 
Br  +  I2  — >  IBr  +  I  is  exothermic,  and  therefore  “downhill”  in  nature.  The  rate  coefficient 
for  this  process  was  computed  to  be  larger  than  its  endothermic  counterpart  by  a  factor  of 
7.6  X  10^  [29, 41]. 

Suitability  of  this  analysis  was  tested  by  performing  similar  calculations  upon  the 
experimentally-established,  reversible  exchange  reaction  Br  +  IBr  ?=»  1  +  Br2.  The 
resulting  proportionality  factor  of  1.67  x  10^  is  closely  in  agreement  with  a  1.71  x  10^ 
ratio  calculated  from  data  measured  by  Clyne/Cruse  and  Haugen  et  al  for  forward  and 
reverse  reaction  rates,  respectively  [20, 4]. 

With  relative  magnitudes  of  these  coefficients  established,  only  one  remaining 
element — ^the  approximate  frequency  of  either  process — is  needed  to  quantify  the  value 
of  both  rate  coefficients.  Gruebele  et  al  insisted  on  the  absence  of  coefficient  data  for 
either  direction  of  this  reaction,  but  conjectured  that,  due  to  its  small  energy  barrier  to 
formation,  the  forward  process  occurs  rapidly:  “within  a  small  order  of  the  collisional  rate 
[40].”  In  this  vein,  the  present  study  assigned  rate  coefficient  values  between  10'**  and 
10‘'°  mol/cm^-s  to  the  forward  reaction;  corresponding  reverse  coefficients  were  assigned 
in  accordance  with  the  proportionality  factor  defined  previously.  Model  simulation 
(absent  pumping)  was  subsequently  used  as  a  means  of  selecting  a  base  value  that 
produces  experimentally  expected  results.  A  middle  value  of  approximately  5  x  10'^^  was 
chosen  due  to  its  agreement  with  the  law  of  mass  action. 

With  reasoning  thus  defined,  central  reaction  processes  included  in  the  ILSA 
model  are  the  following: 
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Table  3-3.  Rate  Coefficients  Used  in  Numerical  Model  of  IBr  Laser 


isMIl 

Reaction  Process 

Rate  Coefficient 

Units 

Reference  (Endnote  #,  Author) 

[kqll 

Br*  +  IBr  ^Br  +  IBr 

esshh 

[18]  Pastel  a/ (’94) 

[kq2] 

Br*  +  I^Br  +  I 

1.9x10-'' 

[18]  Pastel  eta/ (’94) 

[kq3] 

Br  + 12  — ^  Br  + 12 

1.9x10'" 

[19]  Hofmann/Leone  (’78) 

ngHi 

Br  +  Br2  Br  +  Br2 

1.2  xlO''" 

[21]  Johnson  a/ (’96) 

[kqS] 

Br*  +  Br*  Br*  +  Br 

6.8  X  10  '^ 

cm^/s 

[18]  Pastel  eta/ (’94) 

[kq6] 

Br*  +  Br  ^  2Br 

2.5  X  10"' 

[18]  Pastel  eta/ (’94) 

[kq7] 

r  +  IBr-^I  +  IBr 

QQQ[Q||||H|| 

[9]  Harries/Meador  (‘83) 

[kq8] 

I*  + 12  I  + 12 

3.5x10-" 

[9]  Harries/Meador  (‘83) 

[kq9] 

I*  +  Br2  ^  I  +  IBr2 

5.6x10-" 

[9]  Harries/Meador  (‘83) 

mbhhi 

Br  +  IBr  —>  I  +  Br2 

4.6  X  10-" 

[4]  Haugen  eta/ (’85) 

IBI 

Br  + 12  — ^  IBr  + 1 

[40]  Gruebeleeta/(’91) 

1  [ke3] 

I  +  Br2  — ^  IBr  +  Br 

2.1  X  10-'^ 

[4]  Haugen  eta/ (’85) 

I  +  IBr  “->12  +  Br 

4.6  X  10"’ 

Present  Study 

bhhhhh 

[krl] 

ESS^HII 

[9]  Harries/Meador  (‘83) 

[kr2] 

QSQQSliHHIl 

[9]  Harries/Meador  (‘83) 

[kr3] 

Br  +  I  +  IBr^2IBr 

[9]  Harries/Meador  (‘83) 

[kr4] 

Br*  + 1  +  IBr  -+  2IBr 

[20]  Clyne/Cruze  (‘72) 

[krS] 

I*  +  Br  +  IBr  ->  2IBr 

[9]  Harries/Meador  (‘83) 

I  + 1  +  IBr  ^  I2  +  IBr 

[9]  Harries/Meador  (‘83) 

r  +  I  +  IBr-+l2  +  IBr 

EEQQIHHi 

[9]  Harries/Meador  (‘83) 

3.6.  Photon  Emission 

Photon  emission — ^by  both  spontaneous  and  stimulated  processes — ^is  central  to 
the  operation  of  all  conventional  lasers.  However,  given  that  laser  physics  theory  is  well 
established  and  universally  understood,  this  topic  will  be  only  briefly  considered  here. 

The  time  rate  of  change  of  Np,  the  intracavity  photon  population  (in 
photons/cm^-s)  is  given  as  [43]: 

(3-15) 

where  the  first  and  second  bracketed  quantities  correspond  to  cavity  contributions  by 
spontaneous  and  stimulated  emission,  respectively.  The  rate  of  stimulated  emission  is 
directly  proportional  to  total  photon  density,  stimulated  emission  cross  section  Gse,  and 
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the  difference  between  instantaneous  (AN  =  N*  -  Vi  N)  and  threshold  (ANu,)  inversion 
densities.  The  ratio  of  gain  length  to  cavity  length  (Ig/lc)  is  necessary  to  account  for  that 
fraction  of  time  in  which  photon  propagation  between  cavity  mirrors  is  outside  the  gain 
cell  and  therefore  not  capable  of  interacting  with  excited  bromine  atoms.  Consistent  with 
previous  treatments  of  the  Br  lasing  process,  the  line  shape  function  g(v),  an  implicit 
element  of  the  stimulated  emission  cross  section,  was  derived  as  exclusively  Doppler  in 
nature  [44, 45]. 

The  spontaneous  emission  contribution  is  given  as  the  product  of  total  Br  (^Pi/2) 
population  density  Nbi*,  and  a  mode-specific  spontaneous  emission  coefficient  Asp.  This 
constitutes  the  photon  “noise,”  caused  by  spontaneous  relaxation  of  metastable  bromine 
atoms,  and  is  required  as  a  feed  for  the  buildup  of  stimulated  emission  within  the  cavity. 
Ultimately,  upon  reaching  a  respectable  photon  cavity  population,  spontaneous  emission 
becomes  kinetically  negligible  and  output  power  is  almost  entirely  determined  by  the 
stimulated  emission  process. 

3.7.  Lasant  Circulation  Processes 

The  family  of  processes  heretofore  derived  is  entirely  sufficient  for  modeling  a 
static-cell  IBr  laser  system.  Properly  assembled,  these  elements  accurately  predict 
population  dynamics  within  the  gain  cell  over  time.  This  is  indeed  the  method  embraced 
in  past  studies  examining  the  nature  of  IBr  laser  pulses  [9].  However,  since  it  is 
suspected  that  a  free-running,  closed-cell  IBr  photodissociation  laser  cannot  sustain 
prolonged  population  inversion,  any  attempt  to  treat  the  continuous-wave  case  must 
include  a  chemical  restoration  mechanism  as  well. 
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Due  both  to  lasant  precursor  depletion  and  buildup  of  photofragment  byproducts, 
photodissociative  lasers  often  experience  bottlenecking  difficulties  not  shared  by  other 
lasers.  An  appropriate  chemical  restoration  process,  then,  must  address  both  these  effects 
over  extended  periods  of  time.  In  practice,  this  amounts  to  the  simultaneous  (a)  removal 
of  photofragment  products  and  (b)  reintroduction  of  lasant  precursor  in  the  gain  cell. 
Fortunately,  in  the  case  of  iodine  monobromide,  these  two  demands  are  complementary: 
the  law  of  mass  action  strongly  favors  IBr  production  over  that  of  Br2  and  I2  in  the 
equilibrium  density  proportion  of  100:4:4  [41].  Thus,  it  is  clear  that  a  lasant  transit 
system — whereby  the  cell  contents  are  allowed  to  flow  out  via  circulation  mechanism, 
recombine  in  the  absence  of  stimulating  radiation  (possibly  under  high  pressures),  and 
return  to  the  cell  as  dominantly-IBr  precursor — is  ein  attractive  method  of  obtaining  CW 
oscillation. 

Precise  modeling  of  a  circulation  process  would  require  rigorous  application  of 
the  Navier-Stokes  transport  equations,  with  attendant  scrutiny  of  surface-induced  viscous 
effects,  local  population  density  variations,  and  other  dynamic  considerations.  Such 
attention  to  detail  is  excessively  (albeit  commendably)  diligent  for  the  purposes  of  this 
study.  Therefore,  the  ILSA  model  invokes  a  truncated  approach  that  retains  only  the 
most  central  tenets  of  fluid  flow  analysis. 

The  removal  rate  of  chemical  species  from  a  vessel — driven  by  induced  pressure 
differentials  or  mechanical  fanning — is  proportional  to  the  induced  velocity  of  the  gas,  as 
well  as  the  average  population  density  of  the  chemical  species.  Moreover,  for  a  given 
flow  velocity,  the  removal  rate  is  inversely  proportional  to  the  length  of  flow  path  from 
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end  to  end.  In  this  sense,  the  circulation  loss  behaves  much  like  any  generic  decay 
expression.  The  removal  constant,  P,  applies  simultaneously  to  all  chemical  species  as 
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(3-16) 
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where  Ig(ii)  represents  the  length  of  the  gain  cell  along  the  path  of  gas  flow.  Depending 
upon  the  engineering  geometry  used,  this  direction  could  be  either  parallel  or 
perpendicular  to  the  longitudinal  orientation  of  the  cavity. 

In  balance  of  this  circulation  outflow,  principles  of  conservation  require  that  the 
total  atomic  density  loss  be  matched  by  a  corresponding  atomic  gain  in  the  form  of  input 
IBr  precursor.  That  is,  any  pragmatically  supportable  laser  system  must  avoid  a  net 
depletion  or  growth  over  time.  Furthermore,  it  bears  repeating  that  it  is  the  total  atomic 
rather  than  molecular  density  that  must  be  balanced  in  detail.  The  continuity  condition 
for  a  lasant  circulation  process  is  thus: 
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Zapata’s  results  indicate  that  sealed-cell,  IBr  laser  performance  is  highly 
reproducible  when  sufficient  time  (~  60+  seconds)  elapses  between  pumping  events  [8]. 
This  suggests  a  strong  photofragment  affinity  towards  recombination  in  the  same 
JBvfBtz/li  proportion  as  that  of  initial  precursor.  A  comparison  of  the  relative  rate 
coefficient  magnitudes  certainly  supports  this  observation.  Therefore,  it  is  fair  to  assume 
and  model  a  circulation  system  that  invokes  the  process  of  recombination,  outside  the 
gain  cell,  as  a  basis  for  establishing  a  steady  inflow  of  lasant  precursor.  This  total 
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molecular  inflow  rate,  matched  on  an  atomic  scale  to  the  velocity-dependent  outflow  rate, 
B'P 

is  equal  to  — - ,  where  'F,  the  total  atomic  concentration,  is  defined  as: 

21g(ii) 


source  terms  for  IBr,  Br2,  and  I2  given  by  equations  (3-19)  and  (3-20). 
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IV.  Computer  Models  of  the  IBr  Photolysis  Laser 


The  IBr  Laser  Simulation  Algorithm  (ILS  A)  is  a  Mathematica®-based 
computational  package,  written  by  the  author,  that  solves  for  kinetic  behavior  of  a 
Br  (4  ^Pi/2  — >  4  ^P3/2)  laser,  pumped  by  photolysis  of  IBr  via  concentrated  solar  radiation. 
Based  upon  system  parameters  input  by  the  user  (i.e.,  gain  cell  temperature  and  pressure, 
solar  amplification,  reflectivity/transmittance  of  optical  components,  cavity  dimension, 
bandpass  filter  range,  and  lasant  flow  velocity),  the  algorithm  calculates  and  plots 
population  concentrations  and  resulting  output  power  for  a  standing-wave  laser  cavity. 

Two  versions  of  ILSA  code  were  developed  in  the  course  of  this  study.  The  first 
version — ILSAl,  intended  for  general  use — ^includes  a  guided  interface  that  prompts  the 
user  for  relevant  parameters  to  be  used  in  obtaining  a  solution.  Analysis  and  output  is 
then  executed  according  to  these  user-defined  preferences.  The  second  version  (ILSA2) 
is  unedited  source  code  that  also  contains  internal  hyperlinks  to  key  portions  of  the 
document  and  several  ancillary  charts  that  were  used  to  validate  the  model.  Due  to  its 
accessibility  and  completeness,  ILSA2  is  appropriate  for  the  design-oriented  user  who 
wishes  to  introduce  modifications  to  the  programming  package.  A  printed  version  of  this 
code  is  included  as  Appendix  B. 

4.1.  Model  Overview 

The  ILSA  program  is  designed  to  effectively  model  all  processes  relevant  to  the 
IBr  laser,  based  upon  parameters  input  by  the  user.  The  first  eighteen  pages  of  source 
code  are  devoted  to  elements  of  the  laser  pumping  mechanism  (IBr  photolysis  by  solar 
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concentration).  This  is  followed  by  the  introduction  of  eight  nonlinear,  coupled,  time- 
dependent  differential  equations  that  represent  the  temporal  dynamics  of  all  chemical  and 
photon  populations  within  the  gain  cell  under  solar  pumping.  Numerical  solutions  to 
these  equations  are  obtained  using  Mathematica’s®  native  NDSolve  algorithm.  To  assist 
with  sensitivity  analysis,  each  solution  is  then  broken  down  into  its  constituent  processes 
and  plotted  as  a  function  of  time. 

Because  the  IBr  photodissociation  laser  may  require  removal,  recombination,  and 
reintroduction  of  lasant  to  maintain  continuous-wave  behavior,  ILSA  performs  additional 
analysis  of  long-term,  non-excited  chemical  interaction  between  photofragment  species. 
This  is  designed  to  simulate  the  intermediate  recombination  process  that  would  be 
induced  outside  of  the  gain  cell.  It  provides  insight  into  the  system’s  recirculation 
demands,  particularly  the  time  scale  required  for  reestablishing  a  high-concentration  IBr 
precursor. 

An  additional  section  of  ILSA  code,  dedicated  to  obtaining  a  closed-form  solution 
for  CW  laser  performance,  reflects  a  distillation  of  all  data  produced  by  the  time- 
dependent  kinetic  model.  While  it  is  only  approximate  in  nature,  the  analytic  model 
allows  a  more  immediate  analysis  not  offered  by  the  kinetic  model.  This  can  prove 
useful  in  design  studies  concerned  with  a  laser’s  engineering  requirements. 

In  the  course  of  analyzing  data,  it  became  rapidly  apparent  that  the  ILSA  code,  as 
originally  developed,  was  exceedingly  laborious  in  its  execution  time.  After  some 
computational  reconstruction,  three  alternate  versions  of  code  were  produced.  Each 
version  is  designed  to  match  particular  user  requirements  of  time  and  accuracy. 


44 


Appendix  A,  Modifications  to  ILSA  Code,  presents  the  methods  and  reasoning  behind 
these  code  adjustments,  as  well  as  a  general  comparison  of  each  version’s  merits. 

4.2.  Time-Dependent  Kinetic  Model 

In  an  attempt  to  fully  exploit  the  usefulness  of  the  ILSA  model,  the  author 
executed  full  kinetic  code  several  hundred  times,  with  various  parameter  combinations, 
thereby  extracting  insight  into  fundamental  behavior  of  the  IBr  laser.  While  doing  so, 
two  objectives  were  simultaneously  pursued:  (1)  characterization  of  the  basic  nature  of  a 
solar-pumped  laser  pulse,  and  (2)  an  understanding  of  its  underlying  kinetic  processes. 
Results  of  both  these  efforts,  as  well  as  an  experimental  validation  of  results,  follow. 

4.2.1.  Results  of  Kinetic  Simulation 

Qualitatively  speaking,  the  typical  DLS  A-modeled  laser  pulse  is  kinetically 
consistent  with  experimental  results  from  previous  IBr  laser  studies.  Under  nominal 
conditions,  the  laser  cavity  rapidly  builds  up  an  intense  photon  population — peaking  after 
less  than  20  microseconds — and  then  presides  over  an  “underdamped”-type  moderation 
of  photon  population  levels.  As  shown  in  Figure  4-1,  this  oscillatory  behavior  is  clearly 
observable  in  the  short  interval  following  initial  gain  saturation.  Further  analysis 
indicates  that  the  extent  of  underdamping  is  dependent  upon  output  coupler  reflectivity. 
Optimally-coupled  cavities  demonstrate  minimal  oscillatory  behavior;  poor  coupling 
results  in  three  or  more  cycles  of  underdamped  oscillation. 
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Figure  4-1.  Typical  temporal  behavior  of  a  poorly-coupled  ILSA-modeled  output  pulse. 

The  end  destination  of  this  dampened  photon  population  is  conspicuously 
dependent  upon  the  set  of  operating  conditions  selected  for  the  module.  Rigorous 
analysis  of  parameter  interplay  will  be  deferred  to  the  following  discussion  section; 
however,  one  qualitative  observation  bears  introduction  here.  For  low  pumping  rates  and 
no  lasant  recirculation,  continuous-wave  operation  is  not  obtainable  and  photon  density 
within  the  cavity  drops  to  noise  (spontaneous  emission)  levels  only.  This  is  an  expected 
result,  as  is  the  fact  that  introducing  ample  flow  velocity  does  lead  to  a  continuous-wave 
capability.  However,  somewhat  unexpected  is  the  finding  that  a  closed  gain  cell,  given  a 
sufficiently  high  solar  concentration,  will  achieve  continuous  wave  operation  under  most 
conditions.  It  has  been  postulated  in  previous  studies — and  heretofore  accepted  as  fact — 
that  a  sealed-cell  IBr  laser  is  incapable  of  continuous-wave  operation.  Evidently,  high 
pumping  intensities  can  serve  to  overwhelm  deleterious  kinetic  effects  within  the  gain 
cell,  aehieving  the  desirable  result  of  CW  oscillation. 
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4.2.2.  Sensitivity  Analysis 

With  the  exception  of  certain  unavoidable  approximations,  the  kinetic  model 
developed  here  is  as  complete  and  exhaustive  as  practical.  Even  in  the  case  of  the 
mathematically-expedited  alternatives,  accessibility  of  the  model  has  been  sacrificed  in 
favor  of  accuracy.  This  is  an  important  first  step  in  proper  characterization  of  the  IBr 
laser.  Having  done  this,  however,  it  is  advisable  to  examine  the  numerical  importance  of 
each  individual  contribution  to  the  complete  kinetic  solution.  By  doing  so,  the  researcher 
can  conduct  an  effective  sensitivity  analysis  of  the  modeled  system  and  then  simplify  the 
representation  by  eliminating  processes  which  are  kinetically  trivial.  If  it  can  be  done 
without  sacrificing  fundamental  accuracy  of  the  full  kinetic  model,  repeated  elimination 
of  peripheral  processes  will  ultimately  lead  to  a  system  which  can  be  represented  entirely 
by  closed-form,  analytic  solutions.  Inasmuch  as  this  is  the  desired  result — ^providing  a 
measure  of  convenience,  timeliness,  and  simplicity — sensitivity  analysis  is  an  important 
exercise  in  kinetic  model  development. 

Numerical  solutions  representing  the  temporal  development  of  all  distinct 
chemical  species  in  the  IBr  kinetic  model  have  been  separated  into  their  constituent 
processes  and  individually  plotted  as  a  function  of  time  in  the  Sensitivity  Analysis  section 
of  Appendix  B.  For  purposes  of  clarity,  each  of  the  seven  species  is  represented  by  a  pair 
of  charts.  The  first  chart  represents  positive  (“production”)  contributions;  the  second, 
negative  (“loss”)  contributions.  Both  quantities  are  given  in  units  of  [mol/sec-cm^].  By 
observing  the  competing  charts  for  a  given  species,  one  can  visually  assess  the  relative 
significance  of  each  kinetic  process  contained  in  the  full  ILSA  model.  An  extended 
kinetic  analysis  shall  be  presented  in  Section  fV  of  this  thesis,  and  thus  interpretation  of 
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these  plots  will  not  be  undertaken  here.  However,  as  before,  one  glaring  result  deserves 
advance  mention.  Almost  without  exception,  the  general  process  of  recombination  is 
relatively  infrequent;  in  terms  of  overall  reaction  rates,  quenching  and  exchange 
processes  consistently  dominate  kinetics  of  the  gain  cell.  However,  for  the  case  of  iodine 
dimerization  (I+I+M^Ij+M),  a  dramatically  higher  occurrence  rate  is  exhibited.  Indeed, 
in  addition  to  achieving  a  steady-state  reaction  rate  that  is  several  orders  of  magnitude 
higher  than  that  of  its  nearest  recombination  competitor,  the  iodine  dimerization  process 
is  kinetically  faster  than  several  two-body  reactions.  This  dynamic  may  have  strong 
implications  for  resulting  laser  performance. 

4.2.3.  Experimental  Validation 

As  previously  mentioned,  a  bona  fide  solar-pumped  IBr  photodissociation  laser 
has  yet  to  be  built  and  operated.  For  this  reason,  experimental  validation  of  ILS  A  cannot 
be  precisely  achieved.  Solar  concentration  is  often  simulated,  however,  by  use  of  either 
xenon  flashlamp  or  argon  arc  lamp,  both  of  which  closely  approximate  the  spectral 
characteristics  of  solar  radiation  [8,  13].  More  often,  IBr  lasers  are  often  pumped  by  a 
frequency-doubled  (532  nm)  Nd:  YAG  system,  due  to  the  high  Br*  quantum  yield  at  this 
wavelength  [15, 24-25].  With  minor  modifications  to  its  computer  code,  ILS  A  has  been 
adequately  matched  to  each  of  these  scenarios;  comparison  with  experimental  results 
tacitly  confirms  the  model’s  accuracy  in  treating  IBr  laser  kinetics.  However,  any 
validation  gleaned  by  these  approaches  should  be  considered  applicable  only  to  non¬ 
pumping  processes.  As  there  is  no  current  research  available  on  actual  solar  pumping  of 
iodine  monobromide  gas,  this  aspect  of  the  IBr  solar  laser  must  stand  on  theoretical 
merits,  without  experimental  comparisons. 
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The  Nd:  YAG-pumped,  IBr  photolysis  laser  presented  by  Johnson  is  somewhat 
removed  from  the  directly  solar-pumped  case  [15].  However,  owing  to  this  study’s 
precise  characterization  of  laser  performance  as  a  function  of  pressure,  it  is  an  effective 
means  of  testing  the  versatility  of  ELSA  code  under  various  IBr  pressures.  In  this 
analysis,  the  stimulating  pulse  was  extremely  brief  in  duration  (on  the  order  of  10  ns), 
much  shorter  than  any  other  event  on  the  IBr  laser  time  scale.  For  this  reason,  it  is 
appropriate  to  simulate  the  Johnson  study  by  (1)  eliminating  all  pumping  terms  within  the 
ILSA  rate  equations,  (2)  altering  initial  concentrations  of  IBr,  Br*,  and  Br  from 
{IBro,  0, 0}  to  those  generated  by  the  Nd:YAG  pulse  according  to  Beer’s  Law  and  the 
quantum  yield  at  532  nm.  All  other  aspects  of  the  Johnson  study — ^to  include  mode 
volume,  gain  cell  pressure,  and  reflectance/transmittance  of  optical  components — ^were 
input  to  the  ILSA  model. 

While  the  Johnson  paper  did  not  measure  actual  output  power  of  the  IBr  laser,  it 
did  chart  temporal  behavior  and  relative  magnitudes  of  output  pulses  for  varying  partial 
pressures  of  IBr  precursor.  Figure  4-2,  an  ILSA  simulation  plot,  reflects  this  same 
pressure-dependent  behavior. 
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The  “instantaneous”  pumping  approximation  is  appropriate  for  situations  in  which 
short-duration  pulses  are  used  to  excite  the  lasant.  In  limiting  the  subsequent  kinetic 
dynamics  of  the  cell,  this  scenario  also  allows  one  to  more  exactly  monitor  the  process  of 
population  equilibration.  Continual  pumping,  with  its  resulting  dissociation  of  all  three 
molecular  species,  tends  to  mask  the  nature  of  ambient  molecular  interaction  by  rapidly 
“flooding”  the  gain  cell  with  iodine  and  bromine  atoms.  By  removing  this  pumping 
contribution,  it  can  be  confirmed — at  least  anecdotally — that  the  arrangement  of  rate 
coefficients  produces  expected  results  within  the  gain  cell  populations. 

From  previous  studies  of  IBr  photodissociation,  it  is  known  that — upon  removal 
of  a  stimulating  source — system  equilibrium  is  quickly  reestablished  by  the  IBr 
photofragments.  IBr,  Br2,  and  I2  molecules  are  regenerated  directly  via  atomic 
recombination  and  indirectly  via  exchange  reactions,  until  the  molecules  achieve  a 
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100:4:4  density  distribution  consistent  with  the  law  of  mass  action.^  In  their  serial  firing 
of  a  sealed-cell  IBr  laser,  Zapata  and  DeYoung  found  that  one-minute  intervals  were 
sufficient  to  obtain  a  full  recovery  of  IBr  precursor  [8].  Thus,  one  would  expect  similar 
results  to  be  demonstrated  by  the  ILS  A  kinetic  model. 

In  large  measure,  these  kinetic  effects  are  indeed  reflected  in  model  results.  Over 
a  sixty-second  plotting  period,  populations  of  atomic  bromine  and  iodine  are  depleted  to 
relatively  low  levels.  Total  number  density  of  Br2  and  I2  species  drop  appreciably,  but 
still  remain  above  four  percent  of  IBr  density.  Concurrent  with  these  results,  IBr  density 
necessarily  increases,  in  asymptotic  fashion,  towards  initial  (pre-stimulated)  levels. 

These  results,  qualitatively-defined,  are  true  irrespective  of  operating  conditions. 
Yet  quantitative  agreement  between  the  ILS  A  model  and  experimental  results  is  found  to 
vary  strongly  with  selection  of  total  cell  pressure.  Lower  pressures  (less  than  5  Torr) 
produce  exceptionally  well-behaved  results;  at  1  Torr,  a  sixty-second  recombination 
period  restores  IBr  precursor  to  93%  of  its  initial  concentration;  proportions  of  [Br2]  and 
[I2]  species  each  asymptotically  approach  5%  of  final  IBr  concentrations.  These  results 
are  certainly  favorable,  given  the  fact  that  their  foundational  equations  are  based  on  an 
incomplete  (albeit  dominant)  set  of  reaction  coefficients.  Under  higher  pressures, 
however,  numerical  agreement  begins  to  falter.  In  many  cases,  IBr  recovery  is  limited  to 
80%  or  less  of  its  initial  concentration.  Correspondingly,  asymptotic  limits  for  Br2  and  I2 
populations  remain  well  above  5%  of  [IBr],  often  as  much  as  10-15%  apiece.  Thus, 
although  IBr  and  Br2/l2  densities  are  properly  driven  in  opposite  directions  of 


^  Under  contaminant-free  conditions  and  an  ambient  temperature  of  298  K. 
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stabilization,  higher  pressures  evidently  hamper  convergence  toward  a  numerically 
correct  steady-state  distribution. 

An  explanation  for  this  inconsistent  kinetic  behavior  can  be  found  by  scrutinizing 
the  concurrent  roles  played  by  exchange  and  recombination  reactions.  In  general  terms, 
the  exchange  reactions  do  not  collectively  contribute  to  a  net  change  in  atomic  or 
molecular  populations.  Iodine  atoms  are  effectively  interchanged  with  bromine  atoms; 
I2/Br2  molecules  with  IBr  molecules.  Relative  magnitudes  of  the  four  reaction 
coefficients  determine  the  ultimate  equilibrium  proportions.  But,  as  evidenced  by  the 
functional  form  of  the  exchange  reactions  themselves,  atomic  iodine  or  bromine  must  be 
present  for  such  reactions  to  occur.  A  strong  recombination  influence  within  the  gain 
cell,  by  serving  to  deplete  the  number  density  of  atomic  radicals,  can  therefore  impact  the 
frequency  with  which  exchange  reactions  occur. 

High  cell  pressures  provide  this  recombination  influence.  Under  such  conditions, 
recombination  events  become  more  frequent  (relative  to  two-body  processes)  and  the 
proportionality  typically  established  by  exchange  reactions  is  compromised.  As  a  result, 
the  ms  A  model  restores  molecular  densities,  but  not  in  the  expected  proportions. 

These  ILS  A-predicted  effects  of  pressure  upon  kinetic  equilibrium  are  not 
consistent  with  laboratory  results.  Practically  speaking,  final  molecular  distributions  at 
298  K  should  not  be  dependent  upon  cell  pressure  [41].  It  is  postulated  that  the  model’s 
deficiency  in  this  respect  is  due  to  its  exclusion  of  collisional  dissociation  processes  in 
kinetic  rate  equations.  The  two-body  dissociation  process  XY+M— >X+Y+M,  applicable 
to  each  of  the  three  diatomic  molecules,  allows  for  continual  liberation  of  atomic  bromine 
and  iodine  even  in  the  absence  of  a  photolysis  source. 
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While  high-pressure  systems  do  favor  atomic  recombination  over  dissociation,  it 
is  suspected  that  inclusion  of  a  collisional  dissociation  process  in  the  ILSA  model  would 
remove  much  of  the  pressure-dependent  behavior.  By  effectively  slowing  the  net  rate  of 
atomic  recombination,  the  important  role  played  by  exchange  reactions  would  be  given 
due  weight  and  final  population  distributions  made  consistent  with  the  law  of  mass 
action. 

This  kinetic  omission,  while  detrimental  to  treatment  of  the  unexcited  case,  is  not 
of  particular  importance  to  the  more  relevant  case  of  solar  excitation.  Under  concentrated 
solar  incidence,  collisional  dissociation  is  minor  when  compared  to  contributions  from 
molecular  photolysis.  In  the  context  of  general  laser  analysis,  the  assemblage  of  kinetic 
rate  coefficients  should  therefore  be  regarded  with  high  confidence. 

4.3.  Analytic  Model:  Continuous-Wave  IBr  Laser 

4.3.1.  Kinetic  Assumptions 

The  ease  (or  difficulty)  with  which  one  can  develop  an  accurate,  closed-form 
model  for  any  CW  laser  system  is  almost  exclusively  decided  by  the  degree  of 
competition  among  its  constituent  kinetic  processes.  Lasers  that  lend  themselves  most 
convincingly  to  analytic  solution  exhibit  dominant  processes  that  are  few  in  number,  and 
easily  represented  mathematically.  Although  there  may  be  literally  hundreds  of  kinetic 
reactions  contributing  to  the  laser’s  overall  dynamic  behavior,  effects  of  many  of  these 
reactions  can  be  considered  peripheral  (and  thus  ignored)  they  are  relatively  small  in 
magnitude.  The  resulting  numeric  solutions  for  chemical  and  photon  densities  will 
normally  be  very  close  to  results  obtained  using  iterative,  fully  inclusive  methods  [46]. 
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Unfortunately,  no  such  dominance  is  immediately  recognizable  for  the  case  of  a 
static-cell  IBr  laser.  Initially,  the  pumping  process  is  strongly  dominated  by 
photodissociation  of  IBr  rather  than  Br2  or  U,  and  small  populations  of  atomic  iodine  and 
bromine  contribute  insignificantly  to  quenching,  exchange,  and  recombination  reactions. 
With  the  progressive  depletion  of  IBr,  however — and  the  photofragment  liberation  that 
accompanies  it — steady  state  population  densities  are  shifted  towards  dramatically 
different  proportions.  The  final  state  of  dynamic  equilibrium  reflects  a  general 
assimilation  of  several  kinetic  processes,  thus  complicating  the  modeling  process. 

In  many  previous  studies  of  this  laser,  it  has  been  noted  that  the  IBr  precursor  is 
only  minimally  depleted  by  laser  or  solar-simulator  pumping  sources  [8, 15, 16].  If  this 
result  were  true  under  the  conditions  of  continual  solar  pumping,  steady-state  populations 
of  Br2  and  I2  could  be  approximated  by  their  initial  values,  and  anal)dic  treatment  of 
exchange  reactions  would  be  considerably  assisted.  However,  it  is  clear  from 
consideration  of  ILS  A  data  that  both  these  molecular  species  may,  depending  upon 
pumping  intensity,  grow  dramatically  in  population  (to  15%  or  more  of  IBr  number 
density).  Thus,  the  prospective  analytic  model  is  further  complicated  by  the  need  to 
consider  population  development  of  these  two  species. 

The  “closed  form”  model  ultimately  developed  includes  the  three  majority 
quenching  processes  (IBr,  Br2,  and  I),  each  direction  of  the  two  exchange  reactions,  and 
atomic  iodine  dimerization.  I2  and  Br2  populations  were  not  explicitly  solved  for  in 
steady-state;  rather,  they  were  assigned  typical  IBr  proportions  in  the  cell  (-15%)  to 
properly  weight  the  rate  equations. 
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4.3.2.  Accuracy  and  Applicability 

Upon  review  of  the  above  results,  confidence  in  the  analytic  laser  model  is 
substantially  compromised.  It  is  true  that,  under  select  conditions,  a  clear  kinetic 
dominance  will  surface  and  allow  accurate  modeling  of  both  populations  and  output 
power.  For  such  situations,  this  closed-form  solution  is  applicable  and  valuable;  it  allows 
circumvention  of  the  full  kinetic  model  and  the  time  investment  that  accompanies  it. 
However,  the  observed  degradation  in  model  precision  under  other  conditions  renders  it 
ill-suited  for  use  as  a  wide-sweeping  analytic  tool. 
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V.  Results  and  Analysis 


5.1.  Attainment  of  CW  Oscillation 

An  immediately  striking  result  of  the  A  computational  analysis  lies  in  the 
apparent  ability  to  achieve  continuous-wave  oscillation  without  introduction  of  a  lasant 
flow  mechanism.  Conventional  wisdom,  developed  from  past  IBr  laser  studies  and 
previously  assumed  here,  has  contended  that  a  static-cell  IBr  laser  is  incapable  of  CW 
operation  [8, 9].  Despite  the  presence  of  exchange  and  recombination  reactions  that 
allow  for  removal  of  atomic  iodine  through  dimerization  or  IBr  production,  such 
reactions  were  thought  to  be  eclipsed  by  the  rapid  rate  of  [I]  production  from  IBr  and  I2 
photodissociation.  As  a  result,  the  theory  continued,  population  densities  of  atomic 
iodine  grew  rapidly  within  the  gain  cell,  ultimately  achieving  so  severe  a  Br*  quenching 
effect  that  population  inversion  was  terminated.  Furthermore,  thermal  increases  within 
the  gain  cell  were  suspected  of  simultaneously  enhancing  this  quenching  mechanism  and 
inhibiting  the  removal  rate  of  ground  state  bromine  atoms.  Pumping  intensity  could  be 
increased  as  a  means  of  augmenting  Br*  production  to  a  rate  that  overcame  such 
quenching  effects,  but  would  likely  not  be  sustainable  over  time  due  to  the  rapid 
depletion  of  IBr  precursor. 

The  deleterious  effects  of  iodine  buildup  are  real,  and  they  exact  a  price  on  laser 
performance.  With  a  Br*  quenching  coefficient  of  1.9  x  10'”  cmVs  (the  fastest  of  all  the 
bromine  relaxation  coefficients),  atomic  iodine  is  one  of  the  greatest  kinetic  threats  to 
sustainment  of  the  upper  lasing  population  [18].  But  quenching  is  not  the  sole  process  by 
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which  this  radical  disrupts  laser  oscillation.  The  exchange  reactions  kea  and  ke4,  both 
identified  as  removal  mechanisms  for  atomic  iodine  populations,  each  yield  ground-state 
bromine  atoms  as  one  of  two  reaction  products.  Therefore,  even  those  processes  largely 
credited  with  allaying  quenehing  sources,  diseourage  lasing  by  other  avenues. 

Thus  it  is  clear  that  a  large  iodine  buildup  results  in  inversion  spoiling  not  only 
through  increased  Br*  quenching  effects,  but  also  through  the  increased  frequency  of  kes 
and  ke4  exchange  reactions.  This  leads  to  the  question  that  is  fundamental  to  establishing 
a  CW  IBr  laser;  which  kinetic  process  is  primarily  responsible  for  allowing  the  system  to 
continually  lase  without  the  assistance  of  vacuum  flow? 

As  confirmed  during  development  of  the  anal5dic  model,  the  process  evidently 
responsible  for  restraining  iodine  populations  is  that  of  dimerization:  I+I+M— >I2+M.  It 
is  a  fortunate  fact  that  kea  and  ke4  exchange  reactions  are  endothermie  in  nature.  The 
uphill  character  of  these  reaetions,  signified  by  smaller  rate  coefficients,  allows  more 
rapid  iodine  removal  to  occur  via  the  favored  dimerization  process.  The  dynamic  of  IBr 
recombination  likewise  has  positive  effects  on  inversion,  due  to  removal  of  atomic 
bromine  and  iodine,  but  generally  occurs  at  a  much  slower  rate  [9]. 

Iodine  dimerization  does  not,  in  itself,  sufficiently  explain  the  observance  of  static 
cell,  continuous-wave  lasing.  No  flashlamp-  or  solar-simulated  system  has  ever  reported 
such  results  under  these  conditions.  However,  it  is  also  true  that  no  previous  study  has 
used  bandpass  methods  to  tmncate  the  wavelength  range  of  incident  pumping  energy.  A 
cursory  examination  of  IBr  (and,  to  a  lesser  degree,  Br2)  quantum  yield  curves  reveals  the 
potentially  destructive  effects  of  using  fiill-band  spectral  irradiance  as  an  IBr  laser  pump 
source.  Beyond  both  extremes  of  the  457-545  nm  bandpass  range  used  in  this  model,  Br* 
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quantum  yields  from  IBr  photolysis  drop  below  the  “inversion-generating”  value  of  0.33 
[36].  In  fact,  above  a  threshold  wavelength  of  545  nm,  production  of  Br  (^Pi/2)  is 
energetically  impossible  and  quantum  yield  is  zero  [4].  It  is  contended  that,  without 
preferential  photolytic  generation  of  Br  (^Pi/2),  quenching  effects  ultimately  overwhelm 
lasant  inversion  and  extinguish  photon  buildup.  The  result  is  a  pulsed  output  beam, 
typically  shorter  than  10  |xs  in  duration. 

5.2.  Resonator  Design 

5.2.1.  Pumping  Geometry/Photolysis  Path  Length 

While  the  ILS  A  computer  algorithm  will  attempt  to  solve  for  laser  kinetics  under 
literally  any  combination  of  input  parameters,  a  heavy  measure  of  pragmatism  is 
required,  on  the  part  of  the  user,  to  avoid  the  design  of  impracticable  or  patently 
unrealistic  systems.  Nowhere  is  this  consideration  more  important  than  with  respect  to 
pumping  geometry.  Although  many  innovative  pumping  methods  have  been  previously 
proffered  by  the  literature,  this  thesis  has  confined  its  analysis  to  three  established 
methods.  These  are  the  longitudinally-,  transversely-,  and  frustum-pumped  systems. 

Each  system  has  intrinsic  advantages  and  disadvantages  that  may  carry  different  weight 
under  different  design  constraints.  Therefore,  each  candidate  is  viable,  and  deserves 
individual  consideration. 

The  optical  path  length  of  an  incident  photon  within  the  gain  cell  (Dp)  is  the  only 
laser  parameter  driven  exclusively  by  pumping  geometry.  If  one  assumes  for  simplicity  a 
tetragonally-shaped  gain  cell  under  side-pumped  conditions,  the  optical  path  length  is 
merely  the  depth  of  the  cell  along  this  direction  (assuming  normal  incidence).  Under 
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longitudinal  pumping,  path  length  is  either  the  full  length  of  the  gain  cell  (for  pure  axial 
pumping)  or  a  portion  of  that  length  (for  oblique  pumping  incidence).  In  the  case  of  a 
frustum-type  pumping  arrangement,  no  uniform  path  length.  Rather — as  a  consequence 
of  the  solar  reflector’s  quasi-parabolic  design — the  path  length  of  an  individual  photon  is 
dependent  upon  its  entry  location  on  the  gain  tube,  and,  correspondingly,  its  original 
reflection  point  from  the  solar  collector  [7].  Full  accounting  of  this  situation  requires  a 
rigorous  mathematical  treatment.  However,  since  such  precision  is  excessive  for  the 
purposes  at  hand,  it  is  sufficient  to  use  a  median  path  length  determined  by  the  gain  cell’s 
(1)  length/width  aspect  ratio,  and  (2)  separation  distance  from  the  solar  reflector.  Choi  et 
al  found  that,  for  a  t5q)ical  configuration,  this  distance  can  be  adequately  estimated  as 
150%  of  the  tube  diameter  [7]. 

In  short,  photolysis  path  length  is  not  a  quantity  that  can  be  optimized 
independently  of  other  factors;  it  is  inextricably  linked  to  design  configuration.  For  the 
most  part,  selection  of  one  configuration  or  the  other  as  “preferable”  will  be  deferred  to 
the  concluding  section  of  this  paper.  On  the  basis  of  available  model  data,  however,  it  is 
possible  to  eliminate  one  geometry  type  from  further  consideration.  Under  most 
conditions,  the  longitudinal  pumping  approach  is  only  partially  successful  in  obtaining 
CW  laser  oscillation.  This  is  doubtless  due  to  severe  attenuation  effects  encountered  by 
the  photolysis  beam  as  it  propagates  over  the  entire  gain  cell  length.  Consequently,  a 
large  portion  of  the  gain  medium  is  unaffected  by  the  incident  photon  stream,  and  gain  is 
frustrated.  While  drastic  reductions  in  the  scale  of  laser  tube  length  may  relieve  this 
failure,  the  efficiency  of  this  method  is  clearly  inferior  to  that  of  its  two  alternatives. 
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5.2.2.  Gain  Cell  Dimensions 


Consistent  with  expectations,  a  lengthening  of  the  gain  cell  yields  linear 
improvements  in  output  power  (Figure  5-1).  It  follows  that,  theoretically  speaking, 
exceedingly  long  gain  tubes  are  capable  of  outputting  several  kilowatts  of  power  under 
20,000  SCs.  Unfortunately,  the  limitations  of  direct  solar  reflection  place  a  practical  limit 
upon  such  scalability.  The  side-pumped  configuration  is  extremely  inflexible  in  this 
respect.  Under  frustum  pumping,  however,  a  gain  length  of  3  meters  appears  reasonable 
[6];  therefore,  this  length  was  invoked  for  use  in  the  ensuing  parameter  evaluations. 


Figure  5-1.  Output  power  as  a  function  of  gain  cell  length. 


5.3.  Parametric  Optimization 

5.3.1.  Precursor  Concentration 

Of  all  system  parameters,  perhaps  none  boast  a  more  fundamental  impact  on  BBr 
laser  dynamics  than  does  gain  cell  pressure.  With  the  attendant  increase  in  frequency  of 
particle  interaction,  higher  cell  pressures  drive  an  acceleration  of  both  two-  and  three- 
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body  reaction  rates.  More  important,  however,  is  the  nonuniform  manner  in  which  these 
reaction  rates  are  altered.  Because  three-body  reactions  are  given  as  the  product  of  three, 
rather  than  two,  “parent”  population  densities,  changes  in  cell  pressure  affect  these  rates 
more  dramatically.  That  is,  exchange  and  quenching  reactions  are  implicitly  quadratic 
functions  of  cell  pressure;  recombination  exhibits  third-order  pressure  dependence.  To 
some  degree,  it  is  therefore  possible  for  one  to  use  pressure  selection  as  a  means  of 
molding  kinetic  behavior:  encouraging  certain  reaction  types  over  others. 

Selection  of  a  gain  cell  operating  pressure  is  largely  driven  by  the  laser’s  pumping 
configuration.  High  densities  of  gain  material  provoke  greater  attenuation  effects  upon 
an  incident  beam,  and  thus  limit  the  propagation  depth  of  individual  photons. 
Consideration  of  the  precursor’s  absorption  cross  section,  in  this  context,  allows  an 
effective  matching  of  pressure  and  penetration  depth.  For  a  gain  cell  one  meter  in  length, 
longitudinally-oriented  pumping  favors  relatively  low  IBr  partial  pressures  (-3  Torr). 
Conversely,  frustum-  and  side-pumped  scenarios,  which  typically  enjoy  only  short 
photolysis  path  lengths,  require  higher  IBr  pressures  for  sufficient  energy  absorption 
(~  40-70  Torr  under  identical  system  dimensions).  As  suggested  by  Figure  5-2,  the  most 
expeditious  method  of  identifying  optimal  cell  pressure  for  a  given  system  design  is  to 
simply  plot  output  power  vs.  various  IBr  pressures,  and  note  the  resulting  maximum 
value. 
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Figure  5-2.  Laser  performance  as  a  function  of  initial  IBr  partial  pressure. 

Further  investigation  reveals  that  IBr  pressure  selection  must  also  consider  the 
intensity  of  the  solar  source.  It  shall  be  shown  that,  depending  upon  the  relevant  solar 
concentration  factor,  ideal  pressures  can  vary  as  much  as  30  Torr. 

5.3.2.  Gain  Flow  Velocity 

Although  lasant  flow  is  not  the  indispensable  enabler  of  CW  laser  performance 
originally  proposed,  some  degree  of  recirculation  is  still  desirable.  Temperature  effects, 
while  not  directly  considered  in  the  ILSA  model,  are  a  pervasive  concern  in  intensely- 
pumped  systems.  By  outflowing  the  cell  contents  through  an  external  heat  sink,  average 
temperatures  of  the  gain  material  can  be  appreciably  reduced.  The  other  benefit  afforded 
by  flow,  continual  recombination  of  atomic  iodine  and  bromine  into  IBr  precursor,  also 
enhances  overall  laser  performance  by  reducing  system  dependence  upon  internal  kinetic 
processes.  In  net  terms,  recirculation  reduces  steady-state  populations  of  the  lower  laser 
level  both  directly  (through  Br  (^P3/2)  removal)  and  indirectly  (via  removal  of  strong 
quenching  agents:  i.e.,  atomic  iodine). 
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Computer  analysis  demonstrates  the  effects  of  various  flow  velocities  on  output 
power  (Figure  5-3).  In  this  representation,  the  flow  process  is  defined  as  transverse  in 
orientation  (across  the  width  of  the  gain  cell),  but  can  be  easily  modified  to  reflect 
longitudinal  flow.*  Under  moderate  flow  conditions,  output  intensity  is  sharply  improved 
with  increasing  velocity.  The  beneficial  effects  of  both  Br  (  P3/2)/quenching  agent 
removal  and  IBr  replenishment  outweigh  the  negative  effects  of  Br  (^Pi/2)  removal. 


Figure  5-3.  Output  power  as  a  function  of  transverse  flow  velocity. 


Conversely,  laser  performance  suffers  under  aggressive  flow  conditions. 
Velocities  above  roughly  100  m/s  impart  such  rapid  removal  rates  that  the  steady-state 
Br  (^Pi/2)  population  is  notably  depleted;  inversion  density  and  photon  emission  is 
therefore  affected  similarly.  Under  typical  laser  configurations,  a  flow  velocity  of 


•  If  practical  from  a  design  standpoint,  transverse  flow  is  generally  preferable  to  longitudinal  methods,  in 
that  identical  removal  rates  can  be  effected  with  a  comparatively  slower  flow  velocity. 
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100  m/s  appears  to  optimize  kinetic  balance  in  the  gain  cell.  However,  such  an 
enhancement  must  be  considered  in  light  of  economic  and  engineering  constraints. 

Should  this  scale  of  lasant  flow  require  extraordinary  complications  in  design,  more 
nominal  rates  of  10-20  m/s  can  be  implemented  with  success.  Under  this  scheme — given 
the  steep  slope  of  Figure  5-3 — output  power  can  still  be  appreciably  improved;  flow- 
related  cooling  effects  can  be  exploited  as  well. 

5.3.3.  Bandpass  Design 

Results  of  this  computer  model  reaffirm  the  need  to  discriminate  against 
“destructive”  wavelengths  emitted  by  a  solar  source.  While  pulsed  operation  of  the  IBr 
laser  is  certainly  possible  with  unrestricted  solar  pumping,  continuous-wave  oscillation  is 
evidently  frustrated  by  excessive  Br  (^P3/2)  production  under  this  scenario.  Although  the 
ILS  A  model  is  designed  with  this  premise  in  mind,  and  does  not  generally  allow  pumping 
outside  of  theoretically-established  boundaries  (as  defined  in  Section  m),  the  kinetic  code 
was  altered  by  the  author  to  allow  such  broadband  incidence.  Under  these  modified 
circumstances,  modeled  laser  intensity  was  indeed  short-lived,  and  qualitatively  matched 
the  experimental  results  reported  by  Guiliano/Hess  and  Zapata/De  Young  [8,  16].  With 
this  premise  established  as  valid,  further  analysis  was  performed  to  determine  whether 
total  output  power  could  be  improved  by  narrowing  the  bandpass  range  from  its 
theoretically-determined  limits. 

Review  of  kinetic  model  results  tends  to  support  the  mathematically-based 
methodology  used  in  selecting  “optimal”  wavelength  limits.  Total  output  power,  when 
calculated  and  charted  as  a  function  of  upper  and  lower  wavelength  limits,  attains 
maximum  values  very  close  to  those  limits  previously  calculated  from  IBr 
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photodissociation  yield  curves.  That  is,  merely  selecting  the  wavelength  range  which 
corresponds  to  an  IBr  — >  I  +  Br*  quantum  yield  greater  than  0.33  is  nearly  adequate  for 
maximizing  total  output  power. 

Although  most  proposed  applications  of  a  space-based  laser  are  decidedly  CW  in 
nature  [1],  it  is  a  worthwhile  exercise  to  consider  the  effects  of  bandpass  on 
(unsustainable)  laser  pulses  as  well.  Under  this  optimization  scenario,  it  is  the  ratio, 
rather  than  the  difference,  of  Br*  and  Br  production  which  proves  critical  to  obtaining  a 
high  peak  power.  Accordingly,  this  demand  narrows  the  ideal  bandpass  range  to  those 
regions  of  the  electromagnetic  spectrum  in  which  Br*  quantum  yields  from  BBr 
photodissociation  are  at  near-maximal  values.  Although  this  adjustment  will  not  increase 
total  pulse  power  in  absolute  terms,  an  improvement  is  recognized  relative  to  the  pump 
intensity  committed  to  the  system.  For  instance,  in  one  model,  altering  the  bandpass 
range  from  457-545  nm  to  465-525  nm  reduced  maximal  output  intensity  by  only  five 
percent.  These  findings  have  notable  implications  for  laser  design.  If  a  particular 
application  rendered  pulsed  operation  desirable,  narrowing  of  the  bandpass  range  could 
allow  virtually  unchanged  power  output  under  lower  pumping  intensities.  Consequently, 
thermal  increases  within  the  gain  cell  could  be  mitigated. 

5.3.4.  Optimum  Coupling 

Selection  of  a  laser’s  optimal  output  coupling  can  be  obtained  by  analyzing  the 
mathematical  relationship  between  small-signal  gain  and  cavity  optics  [43].  Although  it 
requires  solution  of  a  transcendental  equation  in  Rcoup,  this  is  a  fairly  straightforward 
exercise  for  the  typical  laser.  In  the  case  of  the  IBr  laser,  small  signal  gain  is  not  easily 
obtainable  and  thus  a  graphical  approach  is  preferable. 
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Because  of  its  implicit  dependence  upon  small  signal  gain,  optimum  coupling  for 
the  IBr  laser  is  likewise  driven  by  such  central  factors  as  pumping  intensity,  cell  pressure, 
and  gain  length.  Generally,  lower  pressures  and  higher  solar  concentrations  required 
heavier  output  couplings  (often  with  reflectivities  as  low  as  90%).  Of  course,  any 
conclusions  drawn  about  optimum  coupling  are  also  heavily  rooted  in  the  optical 
parameters  of  the  cavity.  Changes  in  window  transmittances  or  reflectivity  of  the  second 
mirror  will  affect  these  conclusions  accordingly. 

5.3.5.  Solar  Concentration 

As  might  be  mathematically  expected,  incremental  increases  in  solar 
concentration  are  accompanied  by  a  linear  improvement  in  output  power.  Of  more 
significance,  however,  is  the  fact  that  progressively  higher  pumping  intensities  are 
likewise  rewarded  with  improved  efficiencies.  An  increase  from  3,000  to  5,000  SCs,  for 
example,  was  observed  to  boost  total  efficiency  nearly  fifty  percent  in  the  fmstum- 
pumped  case.  Notwithstanding  this  fact,  it  is  noted  that  such  efficiency  increases  are 
subject  to  a  law  of  diminishing  returns.  As  displayed  in  Figure  5-4,  efficiency  margins 
near  the  upper  practical  limit  (20,000  SC)  are  much  more  modest  than  those  arising  under 
near-threshold  conditions. 
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Figure  5-4.  Total  laser  efficiency  as  a  function  of  solar  concentration  and  IBr  partial 
pressure. 

While  sterile  computational  analysis  clearly  indicates  that  the  highest  achievable 
solar  concentration  results  in  optimal  laser  output,  there  are  practical  limits  upon  the 
degree  to  which  this  can  be  engineered.  Terrestrial  concentration  modules  boasting  a 
capability  of  50,000  solar  constants  (SC)  have  been  successfully  produced  and  operated 
[47],  but  it  is  doubtful  that  such  an  ambitious  system  could  be  similarly  deployed  on  a 
space  platform.  For  this  reason,  a  reasonable  concentration  factor  of  10,000  SC  was 
assumed  in  most  computational  examinations  within  this  thesis.  It  should  be  noted, 
however,  that  a  concentration  factor  of  20,000 — ^frequently  cited  as  a  high  but  achievable 
index  for  a  space  station — is  capable  of  generating  a  laser  output  exceeding  1.2  kilowatts 
under  a  frustum-type  geometry.  Such  scaling  issues  should  be  considered,  as  appropriate, 
in  future  design  efforts. 

An  equal,  if  not  more  important  consideration  for  this  laser  system  is  the  issue  of 
threshold.  Under  extremely  limiting  environmental  constraints,  it  may  be  preferable  to 
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opt  for  a  smaller,  more  reliable  laser  module,  the  output  beam  of  which  can  be  amplified 
by  other  established  methods.  Again,  thermal  effects  may  also  motivate  such  a 
conclusion.  In  this  scenario,  it  is  helpful  to  ascertain  minimum  pumping  standards  for 
continuous-wave  operation.  Again  invoking  the  frustum-oriented  model — ^with  3-m  gain 
length,  dual  mirror  reflectivities  of  0.998  and  window  transmittances  of  0.99 — ILS  A 
results  indicate  that  threshold  lasing  is  achieved  at  approximately  550  solar  constants. 
Comparatively  low  IBr  concentrations,  on  the  order  of  35  Torr,  are  noted  to  assist 
threshold  attainment  under  low-intensity  pumping  conditions.  Thus,  higher  cell  pressures 
effectively  raise  the  solar  concentration  factor  that  is  needed  to  attain  threshold 
oscillation. 

5.4.  Temperature  Effects 

The  optimistic  predictions  presented  here,  in  support  of  the  IBr  laser,  come  with 
an  important  caveat  attached.  All  kinetic  processes  modeled  by  the  ILS  A  algorithm 
presume  operation  under  room  temperature  (298. 15  K)  conditions.  To  the  extent  that 
thermal  effects  within  the  gain  cell  can  be  mitigated  by  aggressive  system  design,  this  is 
not  a  purely  unreasonable  assumption.  But  the  detrimental  effects  of  higher  temperatures 
on  laser  dynamics  are  well  documented  and  pervasive  [8-9],  and  deserve  at  least  cursory 
analysis  in  this  thesis. 

In  the  absence  of  some  internal  or  external  cooling  mechanism,  continual  solar 
incidence — amplified  to  as  much  as  20,000  times  its  normal  intensity — has  a 
demonstrated  potential  for  dramatically  heating  the  contents  of  a  gain  cell.  Thermal 
increases  are  primarily  driven  by  the  translational  energy  imparted  to  IBr  photofragments 
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upon  dissociation;  high  cell  pressures  contribute  to  this  effect  by  permitting  greater 
absorption  of  incident  photons.  Previous  estimates  indicate  that,  under  a  comparatively 
moderate  pumping  intensity  of  only  2000  solar  constants,  the  temperature  of  a  gain  cell 
held  at  5  Torr  can  exceed  1000  K  [9]. 

As  a  matter  of  scale,  the  typical  laser  systems  presented  here — employing  up  to 
70  Torr  of  precursor  partial  pressure  and  a  concentrated  insolance  of  .10,000 — are  even 
more  apt  to  thermally  agitate  the  gain  cell.  These  effects  can  strongly  influence  system 
kinetics,  since  each  of  the  three  reaction  types  exhibits  some  degree  of  thermal 
sensitivity.  Piecemeal  compilation  of  available  research  on  the  temperature  dependence 
of  quenching,  recombination,  and  exchange  reactions  [8,  9,  39, 41]  indicate  that  (as  might 
be  intuitively  expected)  recombination  is  the  process  most  sharply  impacted  by 
temperature  variations.  With  a  temperature  increase  from  300  to  1000  K,  rate 
coefficients  for  the  important  reaction  H-I+M-^l2+M  experience  a  reduction  by  three  full 
orders  of  magnitude.  The  effects  of  temperature  on  Br  (^Pi/2)  quenching  have  not  been 
explicitly  quantified,  but  comparable  studies  on  I  (^Pi/2)  deactivation  by  I2  suggest  that 
the  same  700  K  temperature  rise  effectively  reduces  this  coefficient  by  a  factor  of  20  [9]. 

Forward  and  backward  rates  of  an  exchange  reaction,  denoted  by  R(ke)  and  R(k.e) 
respectively,  are  strongly  influenced  by  absolute  temperature  [8, 42].  In  accordance  with 
the  law  of  detailed  balance,  these  rates  are  related  by  the  expression: 

^^«exp(-AE/kT),  (5-1) 

where  AE  is  the  energetic  difference  between  products  and  reactants,  and  k  is  the 
Boltzmann  constant.  A  temperature  increase  from  300  to  1000  K,  therefore,  results  in  a 
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fifteen-fold  increase  in  the  reverse-to-forward  rate  proportion.  A  corresponding 
reduction  in  Br  (^Ps/i)  removal  rates  by  the  kei  and  ke2  processes  would  be  anticipated. 

In  an  attempt  to  simulate  these  kinetic  temperature  effects,  alternate  rate 
coefficients — corresponding  to  a  cell  temperature  of  1000  K — ^were  constructed  by  the 
author  and  incorporated  into  the  ILSA  program.  The  results  of  this  simulation,  depicted 
in  Figure  5-5,  confirm  the  ruinous  effects  of  high  temperature  operation. 


Figure  5-5.  Relative  output  power  from  IBr  laser  systems  under  simulated  temperature 
conditions  of  298.2  K  (gray)  and  lOOOK  (black). 

Although  quenching  is  mitigated  under  these  conditions,  the  impaired  rates  of 
recombination  and  forward  exchange  serve  to  undermine  overall  laser  performance. 
Steady-state  intensity  is  compromised  by  more  than  fifty  percent;  furthermore,  analysis  of 
long-term  population  dynamics  indicates  that  unrestrained  growth  of  all  non-IBr  species 
ultimately  terminates  the  Br*  inversion  at  roughly  100  (is.  Clearly,  because  an  actual 
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gain  cell  would  not  instantaneously  warm  700  degrees  upon  pumping,  it  is  more  likely 
that  an  uncooled  laser  would  exhibit  room  temperature  behavior  initially,  then  take  on 
high-temperature  effects  with  increasing  kinetic  energy. 

5.5.  Comparisons  with  Competing  Systems 

As  is  true  in  any  process  involving  the  selection  of  a  technical  system, 
attractiveness  of  the  IBr  laser  is  predicated  not  only  upon  its  own  merits,  but  those  of  its 
competitors  as  well.  It  has  been  well  established  in  this  paper  that,  at  present,  a  class  of 
perfluoroalkyl  iodides — Shaving  been  thoroughly  investigated  for  the  solar  pumping 
scenario — enjoys  industry  approval  as  the  choice  for  space  deployment.  It  is  therefore 
essential  that  both  candidate  systems  be  compared,  on  even  terms,  in  the  areas  of 
efficiency,  power,  and  sustainability.  Efficiency,  being  the  most  objective  of  these 
criteria,  will  be  considered  first  and  with  the  most  rigor.  Also,  since  the  specific  t-C4F9l- 
precursor  system  has  been  declared  (from  multiple  fronts)  as  the  pragmatic  frontrunner  of 
its  class  [5-7],  it  is  this  system  which  will  be  the  basis  of  comparison. 

5.5.1.  Efficiency 

As  previously  mentioned,  “solar-absorptive”  efficiency  of  the  IBr  laser — defined 
as  the  fraction  of  energy  successfully  transferred  from  an  incident  solar  stream  to 
molecular  absorption  within  the  gain  cell — ^is  visibly  superior  to  that  of  the  competing 
class  of  perfluoroalkyl  iodides.  In  addition  to  the  fact  that  their  absorptive  properties  are 
confined  to  a  poorly  represented  region  of  the  solar  spectrum  (250-350  nm),  CxFyl 
precursors  are  also  limited  by  a  lower  peak  absorption  coefficient  [6].  This  does  not 
necessarily  foreclose  the  issue  of  overall  laser  efficiency,  however.  There  are  desirable 
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features  of  the  t-C4F9l  laser  that  could  constitute,  on  balance,  a  superior  process  of  power 
conversion.  These  include  near-unity  yield  of  I*  upon  r-C4F9l  photodissociation,  as  well 
as  a  shorter  lasing  wavelength  (1.3  |4ni)  and  less  destructive  quenching  effects.  For  this 
reason,  efficiencies  of  both  lasers  should  be  scrutinized  in  detail. 

By  virtue  of  the  numerous  studies  published  on  perfluoroalkyl  iodide  lasers, 
operating  efficiencies  of  these  systems  are  well  documented.  Despite  slightly  differing 
absorption  profiles,  members  of  the  CxFyl  family  exhibit  similar  overall  quantum 
efficiencies  of  roughly  0.1  percent.®  This  value  serves  as  an  important  benchmark  for 
evaluating  the  IBr  system,  and  is  ultimately  the  one  of  most  importance.  But  it  is  also 
useful  to  deconstruct  each  laser  candidate  into  its  constituent  processes.  By  identifying 
the  series  of  “micro-efficiencies”  that  comprise  overall  operating  efficiency,  relative 
strengths  and  weaknesses  can  be  assessed. 

Composite  efficiencies  are  defined  as  follows.  Spectral  ejficiency  is  that 
proportion  of  insolant  radiation  that  falls  within  the  optimal  bandpass  range  for  each 
laser.  In  the  case  of  r-C4F9l,  this  precursor’s  uniformly  high  quantum  yield  precludes  the 
need  for  wavelength  discrimination  and  spectral  efficiency  is  therefore  defined  by  its  full 
range  of  absorption.  Absorptive  ejficiency  is  defined  as  that  proportion  of  incident 
radiation  that  is  actually  absorbed  by  a  “precursor”  molecule.  In  the  case  of  the  IBr  laser, 
both  IBr  and  Br2  species  are  included  under  this  criterion,  since  Br2  photolysis  also 
contributes  to  the  upper  laser  level.  This  dynamic  is  highly  dependent  upon  precursor 


®  Interestingly,  reported  efficiencies  for  both  flashlamp-  and  solar  concentrator-pumped  systems  are 
virtually  identical,  testifying  to  the  suitability  of  xenon  as  a  solar  surrogate  [6, 14]. 
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density  and  photolysis  path  length;  therefore,  these  variables  are  stipulated  in  Table  5-1. 
Kinetic  efficiency,  the  proportion  of  absorption  events  that  ultimately  result  in  a  cavity 
photon,  is  a  euphemistic  tool  that  reveals  the  extent  to  which  collateral  kinetic  events 
(such  as  quenching  or  chemical  reaction)  interfere  with  stimulated  emission.  Finally, 
cavity  efficiency — ^the  proportion  of  cavity  photons  that  are  eventually  output-coupled 
into  the  laser  beam — is  a  metric  that  is  driven  almost  entirely  by  resonator  design,  and 
thus  is  largely  trivial  for  purposes  of  comparison.  But  it  does  provide  reassuring  closure 
to  the  task  of  efficiency  deconstruction;  when  multiplied  in  series,  constituent  efficiencies 
yield  the  same  overall  value  that  would  be  obtained  from  a  simple  Pout/Pin  computation. 

Buried  as  an  element  of  kinetic  efficiency  is  the  fundamental  quantity  of  quantum 
efficiency,  defined  as  the  ratio  of  lasing  frequency  to  pumping  frequency  [46].  In  that  it 
reflects  the  absolute  limit  of  a  laser’s  total  operating  efficiency,  quantum  efficiency  is  a 
valuable  metric.  For  both  IBr  and  t-C4F9l  systems,  pumping  frequencies  are  not  uniquely 
defined.  Rather,  they  are  contained  within  absorption  bands  of  the  precursor.  Therefore, 
for  purposes  of  this  analysis,  chosen  frequencies  are  those  corresponding  to  peak 
quantum  yields  for  each  laser  system. 

Table  5-1  encapsulates  all  pertinent  efficiency  data  for  the  two  laser  systems 
under  consideration.  For  reasons  of  economics,  normal  convention  is  to  report  a  laser’s 
efficiency  in  terms  of  energy  so  that  it  can  be  compared  to  others  on  a  level  basis.  Solar- 
pumped  lasers  have  the  inherent  advantage  that  pumping  energy  is  essentially  “free”  to 
the  developer.  For  this  reason,  it  is  worthwhile  to  also  note  the  photonic  efficiency  of 
each  device.  Under  this  convention,  quantities  classically  measured  in  watts  (J/s)  are 


73 


instead  tracked  in  photons/sec.  An  overall  photonic  efficiency,  then,  is  given  as  the 
fraction  of  lasing  to  incident  photons. 


Table  5-1.  Operating  Efficiencies  of  IBr  and  r-C4F9l  Laser  Systems. 


Efficiency 

Type 

Photonic 

Photonic 

Spectral  (Tis) 

11.4% 

6.2% 

6.02% 

0.481% 

76.5% 

76.4% 

-60.0% 

-60.0% 

Kinetic 

Quantum 

Other 

37.4% 

(100%) 

(37.4%) 

9.5% 

(22.0%) 

(-43.0%) 

43.0% 

(100%) 

(-45.0%) 

Cavity 

37.5% 

37.5% 

35.0% 

35.0% 

Total  (ns) _ 

0.22% 

0.65% 

0.12% 

0.043% 

Total  efficiency  [1]  of  the  IBr  laser  is  given  simply  by  the  ratio  of  total  output 
beam  power  to  the  total  incident  power  provided  by  solar  reflector.  The  ILS A  model 
reports  both  these  quantities  as  power  densities  (W/cm^);  therefore,  efficiency 
computations  require  conversion  to  absolute  terms.  A  standard  Gaussian  beam  treatment 
is  sufficient  for  calculating  total  output  laser  power.  For  the  TEMqo  mode  [43], 


P  =  P 

^Tot  ^den 


(5-2) 


where  Pxot,  Pdens,  and  Wo  are  the  total  power  (W),  power  density  (W/cm^),  and  waist  of  the 
output  beam  respectively.  If  the  resonant  beam  is  mode-matched  to  the  cross  sectional 
area  of  a  cylindrical  gain  tube,  the  radius  of  this  tube  can  be  substituted  for  the  waist  in 
this  expression.  For  the  case  of  the  1-cm  diameter  considered  previously,  a  large 
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Rayleigh  range  is  obtained  and  divergence  of  the  Gaussian  beam  can  be  neglected  in 
mode  volume  calculations. 

Total  incident  power,  that  power  channeled  by  the  solar  concentrator  onto  the 
gain  cell,  can,  under  most  configurations,  be  obtained  by  a  trivial  calculation.  The  simple 
side-pumped  case,  for  instance,  entails  an  elliptically-shaped  reflector  focusing  the  solar 
image  onto  the  facing  side  of  the  gain  cell.  Total  incident  solar  power  is  thus  given  by 
the  product  of  terrestrial-incident  solar  density  (0.136  w/cm^),  exposed  area  of  the  gain 
cell,  and  solar  concentration  factor: 

=(0.136  W/cm')[lgWg]S,.  (5-3) 

This  is  the  power  incident  upon  the  system  prior  to  discrimination  by  the  bandpass  filter. 
An  axially-pumped  system  would  be  treated  similarly,  with  the  expression  for  exposed 
cell  area  modified  from  [Ig-Wg]  to  [dg-Wg]  (rectangular  channel  design)  or  [jc  rg^] 
(cylindrical  tube  design).  For  clarification,  the  quantities  Ig,  Wg,  dg,  and  rg  are  the 
respective  length,  width,  depth  and  radius  of  the  gain  tube. 

Due  to  its  complicated  pumping  geometry,  the  frustum  design  does  not  lend  itself 
to  a  straightforward,  two-dimensional  conversion.  For  reasons  of  economy,  details  of 
such  a  computation  will  not  be  provided  here.  However,  a  fair  approximation  of  this 
quantity  can  be  obtained  by  dividing  the  total  frustum  volume  by  the  mean  photolysis 
path  length. 


Calculations  indicate  that  mode-matching  of  a  1-cm  diameter  tube,  in  a  330-cm  confocal /planar  resonator 
cavity,  translates  to  a  minimum  radius  of  curvature  for  the  mirror  of  260-m. 
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The  remaining  mathematics  are  straightforward.  Consolidating  these  results  into 
an  overall  value,  it  is  apparent  that  the  IBr  laser  is,  in  energy  terms,  nearly  twice  as 
efficient  than  its  t-C4F9l  counterpart  (0.22%  vs  0.12%).  If  full  use  is  made  of  the 
efficiency  dividends  offered  by  the  “upper”  pumping  limit  of  20,000  SC,  this  efficiency 
can  be  further  boosted  to  0.29%.  In  relative  terms,  this  improvement  is  appreciable  as 
well  as  encouraging.  But  it  is  minor  when  compared  to  the  difference  in  photonic 
efficiencies  for  the  two  systems.  As  documented  in  Table  5-1,  photonic  efficiency  of  the 
IBr  laser  system  is  more  than  fifteen  times  greater  than  that  of  t-C4F9l.  Under  a  pumping 
intensity  of  20,000  solar  constants,  this  difference  becomes  a  factor  of  twenty. 

In  addition  to  these  reported  laser  efficiencies,  there  are,  of  course,  operational 
factors  that  introduce  further  losses  to  each  laser  system.  Imperfect  power  transference 
associated  with  mechanical  losses  from  cooling  jackets,  reflector  geometry,  etc.  can  and 
should  be  factored  into  a  comprehensive  efficiency  analysis.  On  the  basis  of  their 
research,  Choi  et  al  estimated  a  combined  ancillary  efficiency  for  the  frustum-pumped 
system  as  86%  [7].  Since  both  IBr  and  t-C4F9l  lasers  would  be  similarly  impacted  by 
these  operational  losses,  such  effects  do  not  serve  as  a  performance  discriminator 
between  the  two  systems. 

With  regard  to  efficiency  estimates,  it  is  important  to  remark  on  the  apparent 
chasm  that  exists  between  this  and  previous  studies  of  the  solar-pumped  IBr  laser.  For 
instance,  on  the  basis  of  their  computational  model,  Harries  and  Meador  asserted  a 
typical  operating  efficiency  of  1.2%  [9];  Zapata  and  De  Young’s  results  suggested  an 
intrinsic  laser  efficiency  of  0.9%  [8].  Aside  from  inunediately  apparent  differences  in 
laser  design  and  pulse  criteria  (both  studies  used  pulsed,  rather  than  CW  output  as  the 
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source  of  their  computations),  the  difference  can  be  traced  to  discrepant  interpretations  of 
quantum  yield.  Harries  and  Meador  assumed  a  wavelength-invariant  Br  (^Pi/2)  yield  of 
70%  per  photolysis  event;  Zapata  and  De  Young  effectively  assumed  a  quantum  yield  of 
unity.  In  that  the  present  model  has  both  assumed  a  variable  quantum  yield  and  limited 
incident  solar  flux  on  the  basis  of  this  variability,  it  is  to  be  expected  that  resulting 
efficiencies  be  considerably  lower  than  those  developed  in  these  studies. 

A  final  efficiency  observation  bears  heavily  upon  the  issues  of  gain  temperature 
and  bandpass  design.  While  it  is  true  that  the  457-545  nm  range  does  provide  for  optimal 
output  power  (and,  by  extension,  a  higher  overall  laser  efficiency),  it  can  be  logically 
argued  that  the  metric  labs/Ioutput  is  more  pragmatically  useful  than  linc/Ioutput-  That  is, 
although  more  narrow  bandpass  ranges  realize  an  inferior  output  power,  such  a  trade-off 
may  still  be  preferable.  A  reduction  in  the  energy  allowed  to  interact  with  the  gain  cell 
will  translate  into  less  severe  thermal  effects.  Indeed,  as  depicted  in  Figure  5-6, 
absorptive-output  efficiency  increases  notably  when  the  bandpass  range  (centered  about 
the  IBr  absoption  peak  of  ~  495  nm)  is  incrementally  narrowed.  Depending  upon  the 
importance  of  thermal  management  to  the  IBr  laser  system,  overall  design  may  ultimately 
benefit  from  implementation  of  this  principle. 
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Figure  5-6.  Absorbed  efficiency  of  the  IBr  laser  as  a  function  of  bandpass  width  (centered  at 
495  nm). 


5.5.2.  Output  Power 

Comparisons  of  output  laser  power  must  be  both  presented  and  interpreted  with 
caution.  Each  laser  system  considered  here  is  uniquely  designed  and  functions  under 
distinct  parameter  conditions.  On  the  basis  of  computer  modeling,  however,  it  is 
apparent  that  the  IBr  laser  is  capable  of  generating  kilowatt-level  power  in  continuous- 
wave  fashion.  This  capacity  is  suitable  for  some,  but  not  all,  of  the  space-based  missions 
envisioned  in  recent  literature.  For  instance,  the  power  beaming  function  has  been 
estimated  to  require  25-kW  of  output  power  [7].  Unless  multiple  lasers  were  phase- 
arrayed  to  meet  this  requirement,  an  IBr  laser  of  this  dimension  would  prove  inadequate. 
Some  form  of  power  amplification  would  certainly  be  advisable. 

5.5.3.  Design  Costs 

Given  that  IBr  and  f-C4F9l  lasers  share  almost  identical  engineering  demands,  the 
costs  of  sustaining  either  system  on  a  space  platform  are  practically  indistinguishable. 
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The  IBr  laser’s  higher  pumping  threshold,  however,  would  seem  to  necessitate  a  more 
ambitious  scale  of  solar  concentrator.  One  would  expect  to  incur  higher  development  and 
deployment  costs  under  this  scenario. 
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VI.  Conclusions  and  Recommendations 


6.1.  Conclusions 

The  search  for  an  “ideal”  set  of  operating  conditions — upon  which  design  of  the 
IBr  laser  can  be  incontrovertibly  founded — ^is  a  somewhat  myopic  pursuit.  There  are 
numerous  combinations  of  module  parameters  that  have  proven,  if  only  in  mathematical 
terms,  sufficient  for  supporting  an  intrinsically  efficient  and  successful  laser. 
Furthermore,  the  standards  against  which  performance  is  judged  are  certainly 

not  universally  defined;  rather,  they  are  subject  to  the  biases  and  needs  of  the  developer. 
However,  exhaustive  interpretation  of  ILSA  output  results  has  suggested  a  general 
developmental  preference  for  certain  regions  of  the  parametric  envelope.  By  way  of 
engineering  guidance,  then,  the  following  design  recommendations  are  offered. 

1.  While  both  side-  and  frustum-pumped  laser  systems  appear  promising, 
superior  efficiency  and  geometric  economy  of  the  latter  module  makes  it  comparatively 
preferable.  In  addition,  the  frustum  design  exhibits  an  inherent  symmetry  that  is  not 
shared  by  the  side-pumped  method. 

2.  Cavity  design  characterized  by  a  mode-matched  cylindrical  gain  cell  (perhaps 
3  meters  long  and  1-cm  in  diameter),  under  70  Torr  of  IBr  partial  pressure  and  modest 
10-20  m/s  longitudinal  flow  velocity,  appears  to  be  profoundly  effective  in  achieving 
near-ideal  laser  performance  for  a  pumping  intensity  of  20,000  SC. 

3.  Insolance  upon  the  gain  cell  should  be  of  as  high  a  solar  concentration  as  is 
practical.  At  a  minimum,  the  threshold  requirement  of  roughly  550  SC  must  be  met  in 
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order  to  obtain  CW  oscillation.  Incident  radiation  should  be  spectrally  constrained — ^by 
bandpass  methods  or  otherwise — to  a  wavelength  bandwidth  of  457-545  nm. 

6.2.  Recommendations 

6.2.1.  Applications 

The  potential  applications  of  a  solar-pumped,  space-based  IBr  laser  system  are 
many  in  number,  but  not  particularly  unique  in  character.  Assuming  a  sufficiently  high 
output  power  capability,  any  infrared,  continuous-wave  laser  system  is  well  suited  to  the 
three  functions  mentioned  in  the  introduction.  Deployment  on  an  earth-orbiting, 
heliostationary  platform  would  ensure  the  opportunity  for  uninterrupted  solar  collection. 
However,  the  intractable  nature  of  a  large  reflection-laser  module  (as  opposed  to  a 
compact,  chemically  fueled  laser)  does  seem  to  discourage  compatibility  of  the  IBr  laser 
with  non-stationary  mission  types.  For  this  reason,  it  would  appear  that  power  beaming, 
rather  than  communications  or  satellite  debris  annihilation,  is  the  application  most 
amenable  to  the  IBr  laser  system.  The  ability  of  other  spacecraft  to  maneuver  within 
arbitrary  range  of  an  orbiting — ^but  otherwise  stationary — energy  source  largely 
eliminates  the  need  for  dexterity  in  laser  aiming. 

6.2.2.  Pursuit  of  a  Space-Based,  Solar-Pumped  IBr  Laser 

As  supported  by  results  of  the  ILSA  computational  model,  it  is  the  author’s 
recommendation  that  further  investigations  of  the  solar-pumped,  IBr  photolytic  laser  be 
pursued.  Although  a  lower  quantum  yield  and  more  pronounced  quenching  effects  do 
detract  from  the  kinetic  efficiency  of  the  IBr  laser,  spectral  and  absorptive  efficiencies 
favor  this  prospective  system  over  the  perfluoroalkyl  alternative.  Its  intrinsic  affinity  for 
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the  solar  spectrum  makes  the  IBr  photodissociative  laser  particularly  well  suited  to  a 
directly  solar-pumped  scenario. 

Efficiency  is  a  central  criterion  in  laser  appraisal,  and  its  importance  cannot  be 
understated.  But  an  equally  compelling  argument  for  adoption  of  the  IBr  system  lies  in 
its  operational  simplicity.  Whereas  members  of  the  perfluoroalkyl  laser  class  require  at 
least  moderate  lasant  removal  rates  to  prevent  accumulation  of  molecular  iodine,  ILSA 
model  results  suggest  that  the  IBr  system  is  essentially  self-sufficient  -  capable  of 
neutralizing  CW  lasing  threats  by  virtue  of  its  own  chemical  processes.  While  pragmatic 
concerns  such  as  temperature  may  still  deem  a  flow  mechanism  desirable,  it  is  indeed 
encouraging  that  such  a  design  feature  is  not  necessary  on  the  basis  of  inherent  kinetics 
alone. 

Absent  any  future  proceedings  to  the  contrary,  it  is  further  recommended  that  the 
parameter  guidelines  offered  here  be  considered  in  any  future  design  efforts  of  the  IBr 
laser.  Perhaps  the  most  important — and  yet  easily  implemented — element  of  this 
guidance  is  a  spectral  discrimination  against  solar  wavelengths  falling  outside  of  the  457- 
545  nm  envelope.  Additionally,  in  light  of  the  kinetic  importance  of  iodine 
recombination  to  laser  performance,  experimental  efforts  should  be  undertaken  to 
identify  buffer  agents  with  a  preferential  affinity  for  atomic  iodine  interaction.  In  this 
same  vein,  it  is  highly  desirable  to  pursue  the  use  of  materials  that  exhibit  cohesive 
preference  for  atomic  iodine  as  an  inner  gain  cell  coating.  Integration  of  one  or  both  of 
these  facilitators  into  IBr  laser  design  should  prove  profitable  in  terms  of  laser 
performance.  Indeed,  the  already-respectable  CW  power  output  could  be  boosted  to  still 
higher  levels. 
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In  short,  the  IBr  photodissociative  laser  is  uniquely  suited  for  direct  solar 
pumping.  On  the  basis  of  computational  analysis  performed  here,  the  technical 
limitations  of  an  IBr  system  are  not  as  acute  as  originally  believed.  Further  exploration 
of  this  system,  in  an  experimental  context,  may  provide  interested  parties  with  an 
attractive  alternative  to  the  present  line  of  photolytic  precursors. 
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Appendix  A.  Modifications  to  ILSA  Kinetic  Code 


In  the  realm  of  kinetic  modeling,  uncompromising  mathematical  rigor  often 
incurs  more  than  its  share  of  liability.  The  original,  fully-inclusive  ILSA  model  contains 
numerous  sources  of  complexity  that  serve  to  slow  the  process  of  numerical  convergence. 
In  particular,  expressions  for  solar  photolysis  involve  integration  over  several 
wavelength-dependent  quantities,  some  of  which  are  contained  in  exponential  functions. 
These  include  quantum  yield,  solar  incidence,  and  absorption  cross  section.  Because  the 
pumping  expressions  also  involve  transient  quantities  (i.e.,  time-varying  populations  of 
IBr,  Br2,  and  L),  complicated  integrals  must  be  calculated  individually  for  each  step  of 
the  numerical  solution. 

These  computations  are  observed  to  significantly  delay  the  time  needed  for 
obtaining  numerical  solutions.  For  instance,  a  typical  run  of  the  full  ILSA  model — 
involving  a  nominal  500  ps  of  kinetic  dynamics — requires  nearly  one  thousand  iterative 
steps  and  consumes  over  eight  hours  of  processing  time  on  a  (Pentium™.]!)  300 
megahertz  processor.  While  the  patient  user  is  assured  of  an  eventual  solution,  this  scale 
of  computation  time  is  exceedingly  inconvenient  for  most  practical  purposes. 

Elimination  of  this  expediency  issue,  without  any  corresponding  loss  in  numerical 
precision,  was  achieved  by  fundamentally  restructuring  the  ILSA  kinetic  code.  Because 
it  is  the  pumping  expressions  that  are  most  computationally  intensive,  only  this  aspect 
required  correction;  all  other  kinetic  processes  were  allowed  to  stand  as  originally  coded. 
Using  Mathematica’s®  native  Functioninterpolation  function,  the  modified  version 
numerically  maps  individual  (^Pi/2)  and  (^P3/2)  pump  rates  (for  iodine  and  bromine  atoms 
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alike)  as  a  function  of  IBr,  Br2,  and  I2  concentrations.  These  maps  are  then  used,  in  lieu 
of  individual  mathematical  expressions,  in  iterating  the  kinetic  rate  equations. 


The  time  advantage  of  this  approach  is  twofold.  Firstly,  an  interpolation  function 
must  only  be  computed  once  before  it  can  be  used  expeditiously  in  all  code  that  follows 
it.  Because  Mathematica®  is  able  to  return  interpolated  values  faster  than  virtually  any 
mathematical  operation,  code  execution  is  extremely  efficient;  no  significant  difference 
exists  between  the  processing  time  for  “long”  (milliseconds)  and  “short”  (microseconds) 
kinetic  solutions.  Secondly,  under  some  circumstances  an  existing  interpolation  map 
may  be  reused  on  a  differently-configured  laser  system,  as  long  as  the  new  input 
parameters  do  not  impact  the  pumping  expression.^^  Under  this  approximation  scheme, 
processing  time  for  a  single  set  of  data  is  shortened  to  roughly  30  minutes. 

Further  reconstruction  enabled  the  development  of  two  additional  laser 
simulators.  Model  B  constitutes  little  more  than  a  bookkeeping  change,  but  improves 
processing  time  by  better  than  50%  with  only  a  minor  increase  in  associated  error. 

Taking  advantage  of  the  reasonable  approximation 


fF(?i)(Pi(;i)d^ 
Jx, _ 

\F(k)  dX 
Jx, 


Jx,  q(A)  J>.,  ^(A,) 


an  integrated  quantum  yield  for  the  three  molecular  dissociation  processes  can  be 
computed  initially,  then  used  as  a  multiplier  to  convert  IBr,  Br2,  and  I2  dissociation  into 


”  By  name,  these  parameters  include  photolysis  path  length,  temperature,  IBr  partial  pressure,  and 
upper/lower  bandpass  wavelength  limits.  Because  solar  concentration  contributes  to  pump  rate  in 
simple  linear  feshion,  it  has  been  removed  from  the  interpolation  effort  so  as  to  furtiier  improve  flexibility 
of  the  model. 
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(^Pi/2)  and  (^Pj/a)  production  rates.  Since,  under  this  methodology,  only  one  interpolation 
map  is  then  required  for  all  production  processes  associated  with  a  parent  molecule, 
considerable  time  savings  can  be  realized. 

The  second  alternative  (Model  C)  is  faster  still  in  execution  time,  but  much  more 
convoluted  in  development.  Though  respectable,  accuracy  of  this  model  is  inferior  to 
that  of  both  the  above  alternatives.  Its  solutions  are  obtained  by  deconstructing  and 
simplifying  the  integrals  associated  with  solar  pumping.  Because  wavelength-dependent 
quantities  are  not  wildly  varying  within  the  spectral  range  of  interest,  many  of  these 
integrands  can  be  spectrally  averaged  once  (as  demonstrated  in  Model  B)  then  used  as 
prefactors  in  future  calculations.  Furthermore,  the  attenuation  factor  ^  can  be 
approximated  by  its  dominant  contribution  [IBrJ  aiB,  when  it  appears  in  the  exponent  of 
the  pumping  expression. 

Under  this  revised  pumping  approach,  the  photolysis  fraction  [l-exp(-^-Dp)]  was 
replaced  by  [l-exp(-pBr]-CiBj)]  then  fitted  to  an  interpolation  curve  exhibiting  the 
same  functional  dependence  upon  IBr  concentration.  Figure  A-1  shows  the  agreement 
between  exact  and  modeled  pumping  expressions. 
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0.05 


Figure  A-6-1.  Comparison  of  exact  and  approximate  representations  of  Br  (^Pi/2)  and  I  (^Pi/2) 
production  from  Br2  and  I2  photolysis,  respectively. 


The  end  product  of  this  approximation  is  encouraging.  As  reflected  in  Table  A-1, 
Model  C  yields  results  that  are  reasonably  close  to  those  generated  by  the  full  kinetic 
method.  Still,  the  most  judicious  blend  of  economy  and  precision  appears  to  be  offered 
by  Model  B. 
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Table  A-1.  Steady-State  Comparisons  of  ILSA-Modeled  Parameters.  Values  are  computed 
for  a  frustrum-pumped  system  under  lOK  SC;  processing  times  correspond  to  the 
duration  of  code  execution  on  a  Pentium®-!!,  300  MHz  personal  computer. 


Parameter 

Units 

Model  #1 
{“Exact”) 

Model  B 
(Integrated  <p) 

Relative 
Error  (%) 

Model  C 
(Avmgifig) 

Relative 

Em)r(%) 

IBr 

HjjcgQJjHII 

0.00% 

6.37% 

Br2 

0.00% 

1.14% 

h 

0.00% 

1.10% 

Br(¥,„) 

0.00% 

1.34% 

0.00% 

5.46% 

1.34% 

6.65% 

0.00% 

3.72% 

Np 

1.06% 

UMbnM||B 

8.91% 

Powerout 

watts 

531.13 

536.76 

1.06% 

483.78 

8.91% 

Process  Time 

minutes 

58 

18 

N/A 

3.8 

N/A 

The  flexibility  offered  by  three  kinetic  simulators — each  exhibiting  a  unique 
mixture  of  expediency  and  precision — ^is  intended  to  match  changing  user  demands.  On 
the  specific  issue  of  engineering  design,  for  instance.  Model  C  can  be  used  for  top-level 
review  of  rough  design  concepts;  more  refined  data  can  then  be  extracted  via  the 
interpolation  map  models.  Overall,  a  combination  of  these  three  approaches  can 
streamline  the  process  of  laser  system  investigation. 
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Appendix  B.  ILSA;  Mathematical  Source  Code 
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■  Barry  N,  Behnken,  Capt,  USAF 
Air  Force  Institute  of  Technology 
IBr  Laser  Simulation  Algorithm  (ILSA) 


■  Load  Required  Packages/  Set  Code  Design  Preferences 

Off  [Unset:  :norep] 

Off  [FindRoot:  :"fnrip"] 

Off [General: :"spelll"] 

Off  [NIntegrate: :  "inrnn"] 

Remove  [  ShowProgress] 

Needs [ "Graphics ' Graphics3D' "  ] 

Needs  [  "NlnnericalMath'  PolynomialFit ' "  ] 

Needs  [  "NtonerlcalMath^  Interx>olateRoot ' "  ] 

Remove  [  ShowProgress] 

Needs [ "Statist ics 'NbnllnearFit ' "  ] 

Needs [ "Graphics ' Graphics ' "  ] 

Needs [ "Graphics ' Legend" "  ] 

Needs  [  "Statistics"  LinearRegression" "  ] 

Needs [ "Graphics " Mult ipleListPlot " "  ] 

$TextStyle  =  {FontFamily  ->  "Times"^  FontSize  ->8}; 

■  Clear  Notebook  Functions/  Variables 

ClearAll[UserTag,  q,  h, 

c,  k,  Na,  Rsun,  SuiiEaxth,  n,  t,  v.  A,  wib,  em,  Av,  e,  IBrAbsv, 

IBrAbsA^  cabs,  PowerOut,  APeakSolar,  AcutHi^  Me,  Mq,  Solaj^e,  Solai^4q,  rrt,  rp,  Rp, 
IBr^ 

BrStar,  Br^  Br2,  lod,  Iod2,  Photon,  BrStarData,  BrData,  lodData,  PhotonData,  r,  <t>, 
AN,  ANth,  y,  yth,  ase,  Alase,  vlase,  Rmir,  A21,  Asp,  Rmir,  Tcell,  p,  tmax] 

q  =  0;  While[  (q  =  q  +  1)  <=  6,  emOq  = . ;  vOq  = . ;  AvOq  = . ;  emBOq  =  • ;  vBOq  = . ;  AvBOq  = . ; 

Tq  = . ;  Pcellq  = . ;  Lg,  = . ;  SCq  = . ;  Rcoup^  =  • ;  Atiabeq  = . ; 

PPq  =  .; 

AcutliQ,  = . ;  AcutHiq  = . ;  vFloWq  = . ;  Setq  =  • ;  ]  ;  q  =  • ;  al  -  a2  =  a3  =  a4  =  a5  =  a6  =  a7  =  1; 
teirpl  =  temp2  =  pressl  =  press2  =  pathl  =  path2  =  All  =  A12  =  Ahl  =  Ah2  =  0;  UserTag  =  2; 


Hyperlink  {Skip  User  Interface) 
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■  Prompt  User  for  Laser  Parameters/Computation  Preferences  (Optional) 


To  =  298.2;  Pcello  =  1.0;  Lgo  =  100;  Sco  20000;  Rcoupo  =  0.98;  At\;ibeo  =  20; 
DPo  =  60;  AcutXiOo  =  457.7;  AcutHio  =  545.3;  vT'lowo  =  3000; 

Rmir  =  0.998;  Tcell  =  0.99;  p  =  0.85;  tmax  =0.1; 


ClearAll[al,  a2,  a3,  a4,  a5,  a6,  a7,  Chcx>se,  proirpt.  Prompt,  w,  SelectMults] ; 
q  =  0;  While[  (q  =  q  +  1)  <=  11,  {promp^  = . ,  variableq  = . ,  proii!pt2q  = . }  ] ;  UserTag  =  1; 

ParameterLabel  =  {"Operating  Temperature  [K]  ",  "iBr  Partial  Pressure  [Torr]", 
"Gain  Path  Length  [cm]",  "Solar  Concentration", 

"Output  Coupler  Reflectivity",  "Area/  Laser  Tube  [cm^2]  ", 

"Pumping  Path  Length  [cm]",  "Upper  Cutoff  Wavelength  [nm]", 

"Lower  Cutoff  Wavelength  [nm]  ",  "Flow  Velocity  [m/s]"}; 

VarList  =  {T,  Pcell,  Lg,  Sc,  Rcoup,  Atube,  Dp,  AcutLo,  AcutHi,  vFlow)  ; 

VarList2  =  {Rmir,  Tcell,  p,  tmax}; 

PLabel  =  {"Mirror  1  Reflectivity",  "Cell  Window  Transmittance", 

"Ratio:  Gain/Cavity  Length",  "Plotting  Duration  [sec]"}; 
al  =  0;  While[  ( (al  >  6)  |  |  (al  <  1)  |  |  (IntegerQ[al]  ==  False) ) , 
al  =  Input  ["Enter  NUiriber  of  Curves  to  be  Computed\n\n[l-6]  "]] ; 

Proflnpt[w_]  :  = 

ColuinnFoxm[ { "PARAMETER  ASSIcaiMENTS\n\n\nPlease  Enter:",  ParameterLabel [  [w]  ]  , 
"",  SequenceForm["  [ENTER]  for.  •  •  (Default  =  ",  (VarList [  [w]  ])  o,  ")"]}]; 
q  =  0;  While[  (q  =  q  +  1)  <  11, 

While[  ( (prompt,  ===  Null  |  |  (NUmiberQ [prompt,]  && prompt,  >=  0) )  I  =  True) , 
prompt,  =  Input  [Prompt  [q]  ]  ]  ]  ; 

q  =  0;  While [  (q  =  q  +  1)  <  11,  If  [prompt,  ==  NUll,  prompt,  =  (VarList  [  [q]  ]  )o]  ] ; 
SelectMults [w_]  :  =  SequenceForm[ "  ( " ,  w,  ")  ",  ParameterLabel [  [w]  ]  ]  ; 

q  =  0;  While[  (q  =  q  +  1)  <  11,  (VarList  [  [q]  ] )  o  =  prompt,]  ; 

AcutHio  =  10"®  AcutHio;  AcutLoo  =  10"®  AcutLoo; 

Prompt2[w_]  :  = 

ColumnForm[ { "PARAMETER  ASSIGNMENTS\n\n\nPlease  Enter: ",  PLabel [  [w]  ]  , 

"  " ,  SequenceForm[ "  [ENTER]  for. . .  (Default  =  " ,  (VarList2  [  [w]  ] ) ,  ")"]}]; 
q  =  0;  While[  (q  =  q  +  1)  <5, 

While[  ( (prompt2,  ===  NUll  |  |  (NUiriberQ [prompt 2,]  &&prompt2,  >=  0) )  I  =  True) , 
prompt2,  =  Input  [Prompt2[q]  ]  ]  ]  ; 

q  =  0;  While[  (q  =  q+  1)  <5,  If  [prompt2,  ==  NUll,  prompt2,  =  VarList2[  [q]  ]  ]  ]  ; 
SelectMults2 [w_]  :  =  SequenceFoxm[ "  ( " ,  w,  ")  ",  PLabel [  [w]  ]]  ; 

q  =  0;  While[  (q  =  q+  1)  <5,  VarList2[  [q]  ]  =  prompt2,]  ; 

ShowParaml  =  TableForm[Table[  {d,  ParameterLabel  [  [d]  ] } ,  {d,  1,  5}  ] , 

TableSpacing ->  {0,  0.5}]; 

ShowParam2  =  TableForm[Table[  {d,  ParameterLabel [  [d]  ]  }  ,  {d,  6,  10}  ]  , 
TableSpacing->  {0,  0.5}]; 

If  [al  ==  1,  Goto  [BypassMult]  ]  ; 

Choose  =  0;  Whlle[  ( (Choose  >10)  |  |  (Choose  <  1)  |  |  (IntegerQ[ Choose]  ==  False) )  , 
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Caioose=  Input [ColiiniilForm[{ "SELECT  VARIABLE  PAEIAMETER: 

TableFonti[ShowParainl] ,  •  .or  [EITOER]  for  other  VEuriables. 

If  [  (Choose  ==  Null)  ,  (Choose  =  Input  [ColuinnFonn[  {  "SELECT  VARIABLE  PARAMETER: " , 
TableFom[ShowParain2] , 

" . .  .or  [EOTPER]  for  other  variables.  ••"}]])]]; 
q  =  0;  While[((q  =  q+1)  <=al), 

While[  ( (NUihberQ[varlable(i]  && variable^  >=  0)  !  =  True) , 
variable^  =  Input  [SequenceForm[ParaineterLabel[  [Choose]  ] ,  " ;  Set  #",  q]  ]  ]] ; 
series  s=  al;  d  =  0; 

While  [  (d  =  d  +  1)  <=  series,  {Td  =  pronnpti,  Pcelld  =  prairpt2, 

Lgd  =  proiiipt3,  SCd  =  prainpt4,  RcouPd  =  prompts,  Atxibea  =  prompt^, 

DPji  =  prompt^,  AcutLod  =  10"®  *prompt8,  AcutHid  =  10“®  prompt^,  vFloWd  =  promptio, 
(VarList  [  [Choose]  ] ) d  =  variablOd#  Set^  =  variableid}  ] ;  d  = . ; 

ParaineterLabel[  [6]  ]  =  "Area/  Laser  Tube  [\!  \  (cm\^2\)  ]  "; 

ParaineterLabel[  [8]  ]  =  "Acutoff  (lower)  [m]  "; 

ParaineterLabel[  [9]  ]  =  "Acutoff  (upper)  [m]  ";  Parameter  =  ParameterLabel [  [Choose]  ]  ; 
Label  [BypassMult]  ; 

a2  =  0;  While[  ( (a2  >  2)  |  |  (a2  <  1)  |  |  (IntegerQ[a2]  ==  False) ) , 
a2  =  Input  ["Display  Absorption/Emission  Plots?\n\n[l]  Yes\n[2]  No"]]; 
a3  =  0;  While [  ( (a3  >  3)  |  |  (a3  <  1)  |  |  (IntegerQ[a3]  ==  False) )  , 
a3  =  Input  ["Select  :\n\n[l] 

Full,\n[2]  Interpolation  or \n [3]  Approx. \n\nKinetic  Model"]  ]  ; 
a4  =  0;  While [  ( (a4  >  2)  |  |  (a4  <  1)  |  |  (IntegerQ[a4]  ==  False) )  , 
a4  =  Input  ["Generate/Display  Sensitivity  Plots?\n\n[l]  Yes\n[2]  No"]]; 
a5  =  0;  While[  ( (a5  >  2)  |  |  (a5  <  1)  |  |  (IntegerQ[a5]  ==  False) ) , 
a5  =  Input  ["Perform  Closed- Form  Analysis?\n\n[l]  Yes\n[2]  No"]]; 
a6  =  0;  While[  ( (a6  >  2)  |  |  (a6  <  1)  |  |  (IntegerQ[a6]  :==  False) ) , 
a6  =  Input  [ "Perform  Recombination  Analysis? \n\n[l]  Yes\n[2]  Nb"]  ]  ; 
a7  =  -1;  While [  ( (a7  >  6)  |  |  (a7  <  0)  |  |  (IntegerQ[a7]  ==  False) )  , 
a7  =  Input  [  "Animate  Laser  Graphics?  [0]  No\n\nYes.  Show: 

\n\n[l]  Output  Power\n[2]  IBr\n[3]  BrStar\n[4]  Br\n[5]  Gain 
Coefficient"] ] ; 

■  Standard  Physical  Constants: 

h=  6.626*10^  (-34);  (*  J  s  *) 

c=  3.0*10^10;  (*  cm/s  *) 
k=  1.38*10^  (-23);  (*  J/mol  K  *) 

NU  =  6.022 *  10 ^23;  (★  mol/mole  *) 

Rsun  =  6.96  *10^8;  (*  m  *) 

SunEarth=:  1.49  ★  10^11  ;  (*  m  *) 

MassBr  =  79.9*1.67*10“”;  (*  kg  *) 
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■  Absorption/Quantum  Yield  Curves  for  IBr,  Br2  and  I2 

■  IBr  Absorption  (using  Britton/Seery  Gaussian  Overlap  Model): 

wib  =  267.4  c; 

emOi  =  169.8;  vOi  =  19715  c;  AvOi  =  1132  c; 

6in02  =  288;  y02  =  20951  c;  AVO2  =  2211  c; 
emOa  =  78.9;  vOa  =  37289c;  AvOa  =  3848c; 

(  .  h  wib  T  \ 

€m[n_,  T_]  :=:em0n  lTanh[-^-j-^  J  j 

/  h  wib  T  \ 

Av[ii_,  T_]  :=  AvOn  lTaxih[  JJ 

(V  —  vO  \  ^ 

~r~r — h-\  ] 

Av[n,  T]  )  •' 

IBrabsv[v_,  T_]  :=6[1,  v,  T]  +6  [2,  v,  T]  +e[3,  v,  T] 

l£[a2  1=2,  Plot[lBrAbsv[v,  298.2],  {v,  0,  2*10^^},  PlotRange ->  All, 

,  liter  ,  , , 

AxesLabel->  f"  v[Hz]",  "e  [ - ]"},  llnageSize->  {300,  270}!  1; 

'■  mole  cm  ■*  ■■  ■' 


liter 

mole  cm 


] 


y[Hz] 
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Conversion:  IBr  Extinction  Coefficient  ( v)  ->  Absorption  Cross  Section  (A) 

r  c  - 

IBrAbsA[A_^  T_]  :=  IBrAbsv[— — ,  T] 

100  A 

aabs[A_,  T_]  :=  T] 

If[a2  !=2,  {Plot[aabs[A*10  *,  298.2],  {A,  10,  10^},  PlotRange ->  All, 
AxesLabel ->  {”  A[nm]"^  "a«b«  [can?]”},  DnageSize ->  {460,  320}], 
Plot[aabs[A*  10"®,  300],  {A,  400,  570},  PlotRange ->  All, 
AxesLabel->  {”  A[nm]",  "cab.  [erf]"},  ImgeSize ->  (370,  230}]}]; 


F 


3-D  Representation  of  crji^s  cis  a  Function  of  Incident  Wavelength  and  Ambient  Temperature: 

I£[a2  !=  2, 

Plot3D[10”  aabs[A*10-^,  T]  ,  {A,  200,  700},  {T,  10“^,  3*10^},  PlotRange ->  All, 
PlotPolnts ->  70,  Viewpoint ->  {1.849,  -2.582,  1.168}, 

AxesLabel ->  ("A  [nm]  ",  "Temp  [K]",  "  aABs\n[xlO"^^  cir^]"}, 

ImageSize  ->  {600,  500}]  ]  ; 


Temp  [K] 


3000 


^^ABS 


Peak  Absorption  @  Room  Temperature^  298.2K  (497.8  nm): 

{aabs[497.8*10-S  298.2],  IBrAbsA[497.8*  10“^  298.2]} 

(1.22196x10'^®,  319.582} 


95 


■  Br*  Quantum  Yield  from  IBr  Photodissociation 


Mathematical  Model  oflBr+  hy-^  1  +  Br(Pii2)  Yield  Curve, 
derived  from  data  within  Haugen  et  al  (1985) 


<t>=  PolyiiainialFit[{{450,  0.28},  {455,  0.30),  {457,  0.33},  {460,  0.36}, 

{465,  0.44},  {470,  0.46},  {475,  0.54},  {480,  0.62},  {490,  0.68},  {500,  0.73}, 
{510,  0.72},  {520,  0.71},  {530,  0.68},  {540,  0.67},  {545.5,  0.66}},  5]; 


I£[a2  !=2,  Plot[0[A],  {A,  449,  545},  AxesLabel ->  {"  A  [nm] ", 
ZmageSlze  ->  {427,  400}]  ]  ; 


Br* 

II 

Br*  +  Br 


Br* 

Br*+Br 


Solve  for  Theoretically-Optimal  (AN^)  Lower  Wavelength  Cutoff  (nm): 
*  AN  -  Ni  -II2N2;  ^  >  jfor  AN^ 

Extract [ Solve [0 [A]  ==  1/3,  A],  2] 

{A 457.716} 
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■  Br2:  Minority  Species  Absorption  Profile  (Britton/Seery) 

wibB  =  323*2  c;  eniBOi  =  90*1;  vBOi  =  20452  c; 

AvBOi  =  1582c;  eniBOa  =  204.2;  YBO2  =  24159c;  AYBO2  =  2102c; 

/  .hYvibB,\^^^ 

€iriB[n_,  T_]  :=  emBOn  lTaiih[ — ^  j  I  ; 

(  h  YvibB  \ 

AYB[n_/  T_]  :=AYB0n  |Taiih[ — ]  I  ; 

(Y  “  YBOn  \  ^ 

T-^7 - ]> 

AvB[n,  T]  )  * 

Br2Absv[v_,  T_]  :=  6B[1,  v,  T]  +eB[2,  v,  T] ; 

Q 

Br2AbsA[A  ,  T  ]  :=Br2Absvr - ,  tI  ; 

I  100  A  J 

aabs2[A_,  T_]  :=  (^■^^[■^])  Br2AbaA[A,  T] ; 
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Br2  Absorption  Plots:  (a)  3-D,  for  all  wavelengths;  (b)  at  298  K,for  456-545  nm 


If[a2  !=2,  Plot3D[10”  aabs2[A*10-®,  T] ,  {A,  200,  700},  {T,  10'*,  3*10*}, 
PlotRange ->  All,  PlotPoints ->  70,  Viewpoint ->  {1.849,  -2.582,  1.168}, 
AxesI■^0^el  -  > 

{"A  [nm]",  "Tearp  [K]",  "  c7Ms\n[xlO-“  or?]"},  ImageSize ->  {494,  372}]]; 
I£[a2  !=2,  Plot[aabs2[A*10'*,  298.2],  {A,  457.7,  545.3},  PlotRange ->  All, 
AxesLabel->  {"  A[nm]",  "Oabs  [can*]"},  ImageSize ->  {323,  228}]]; 


f^abs  [cm*] 


A[nm] 
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■  Br*  Quantum  Yield  from  Br2  Photodissociation 

Mathematical  Model  ofBr2+  hy^Br(Psi2)  +  Br(P]f2)  Yield  Curve, 
derived  from  data  within  Haugen  et  al  (1985) 

02=  PolynoimialFit[{{445,  0.44},  {450,  0.49},  (460,  0.62},  {466,  0.67}, 

{470,  0.74},  {475,  0.78},  {480,  0.83},  {490,  0.84},  {500,  0.87},  {510,  0.83}, 
{518,  0.67},  {520,  0.61},  {530,  0.40},  {545.3,  0}},  5] ; 

r  r  r  1 

Iffa2  !=2,  Plotr02[A],  {A,  457.7,  545.3},  AxesLabel ->  f”  A  [nm]",  " - 

>■  ^  Br*  +  Br  ■' 

IniageSize  ->  {379,  306},  PlotRange  ->  All]  ]  ; 


Br* 

Br*  +  Br 
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■  I2:  Minority  Species  Absorption  Profile 


Derived  From  Data  Contained  in  Tellinghuisen,  Using  Methods  From  Britton/Seery 


wibi  =  214  c; 

I2Data=  {{420,  6.9},  {430,  16.9),  {440,  34.5),  {450,  61),  {460,  93),  {470,  127), 
{480,  153),  {490,  168),  {500,  167},  {510,  154},  {520,  131},  {530,  106}, 

{540,  81},  {550,  59},  {560,  41},  {570,  27.9},  {580,  18.4},  {590,  11.8}, 

{600,  7.4},  {610,  4.6},  {620,  2.8},  {630,  1.7},  {640,  0.8},  {650,  0.4}}; 
NonlinearRegress [ 


I2Data,  emlOFit 


h  wibI 
2k298.2 


.1/2 

]J  Exp[- 


C 

100A*10-9 


-  vIOFit 


AvIOFit  (Tailh[i^ 


A,  {{emlOFit,  246},  {vIOFit,  20231c},  {AvIOFit,  4.110”}}, 
Maxiterations  ->  200,  WorkingPreclsion ->  40] 


{BestFitParameters  -»  (emlOFit  -»  244 . 723 , 

vIOFit  ^  6. 06534  AvIOFit  ^  4 . 10001  x  lO” }  ,  ParameterCITable 


Estimate 

emlOFit  244.723 

VIOFit  6.06534x10” 

AvIOFit  4.10001x10” 


Asymptotic  SE 
0.336667 
6.74584x10” 
6.49149x10” 


EstimatedVariance >->  0.220236, 


Cl 

{244.023,  245.423} 

{6.06393  x10”,  6.06674x10”}' 
(4.08651x10”,  4.11351x10”} 


DF 

Model  3 

ANOVATable^  Error  21 

Uncorrected  Total  24 

Corrected  Total  23 


SumOfSq  MeanSq 

174720,  58239.8 

4.624952200796178  0.220236, 

174724. 

84060.8 


AsymptoticCorrelationMatrix  ^ 


FitCurvatureTable $Failed} 


1. 

-0.000338715 

-0.572234 


-0.000338715 

1. 

0.140267 


-0.572234 

0.140267 

1. 


Least  Squares  Fit  Results  for  enlO,  AM  Parameters  of  1 2  Gaussian  Absorption  Model 

{Evaluate  [AvIOFit  /.%[[!,  2]  ]  ]  ,  Evaluate  [AvIOFit  /.%[[!,  2]  ]  ]  /  c} 

{4.10001xl0^^  1366.67} 

{Evaluate  [vIOFit  / .  ?g%[  [1,  2]  ]  ] ,  Evaluate  [vIOFit  /  .  ^[  [1,  2]  ]  ]  /  c} 

{6.06534xl0^^  20217.8} 
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emlO  =  246;  AvIO  =  1366.67  c;  vIO  =  20217.8c; 
einI[T_]  :::6inI0  (Taiih[  (h  wlbl)  /  (2kT)  ] )  *  (1/ 2)  ; 

AvI[T_]  :=  AvIO  (Taiih[(hwibl)  /  (2  kT)  ] )  *  (-1  /  2)  ; 

I2AbsA[A_,  T_]  :=einI[T]  Exp[-((c/  (100  A)  -  vIO)  /AvI[T])*2]; 
aabs3[A_,  T_]  :=  (10*3  /Na.)  (1  +  Log[10  /  E] )  I2AbsA[A,  T]  ; 

I2Extinct  s  Interpolatlon[I2Data] ; 

TableForm[Table[{N[A],  I2Eictinct[A] ,  N[I2AbsA[A  10*  (-9)  ,  298.2],  3]}, 
{A,  420  ,  650  ,  10}], 

TableHeadlngs ->  (Nbne,  {StyleFoxm["A  [nm]",  FontWeight ->  "Bold"], 
StyleFonii[ "e  (Literatiire)  ",  FontWeight  ->  "Bold"] , 

StyleFona["e  (Modeled)",  FontWeight ->  "Bold"]}}] 


A  [nm] 

€  (Literatiire) 

e  (Modeled) 

420. 

6.9 

6.36 

430. 

16.9 

16.2 

440. 

34.5 

34.2 

450. 

61. 

61. 

460. 

93. 

94.1 

470. 

127. 

128. 

480. 

153. 

154. 

490. 

168. 

168. 

500. 

167. 

168. 

510. 

154. 

154. 

520. 

131. 

132. 

530. 

106. 

107. 

540. 

81. 

81.3 

550. 

59. 

59.1 

560. 

41. 

41.1 

570. 

27.9 

27.5 

580. 

18.4 

17.8 

590. 

11.8 

11.2 

600. 

7.4 

6.85 

610. 

4.6 

4.1 

620. 

2.8 

2.41 

630. 

1.7 

1.39 

640. 

0.8 

0.791 

650. 

0.4 

0.445 
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I 2  Absorption  Plots:  (a)  3-D,  for  all  wavelengths;  (b)  at  298  K,  for  456-545  nm 


If[a2  !=2,  {Plot3D[10^®  aabs3[A*10"®,  T] ,  {X,  200,  700},  {T,  10"*,  3*10^}, 
PlotRange->  All,  PlotPoints  ->  70,  Viewpoint  ->  {1.849,  -2.582,  1.168}i 
AxesLabel  -> 

{"A  [nm]",  "Teirp  [K]",  "  aABs\n[xlO“^®  cm?]"},  ImageSize ->  (494,  380}] 
Plot[aabs3[A10-®,  298.2],  {A,  457.7  ,  545.3  },  PlotRange ->  All, 

AxesLabel ->  {"  A[nm]",  "oabs  [cm?]"},  ImageSize ->  {323,  228}]}]; 


Temp  [K] 


[xlO"^^  cm^] 


(Tabs  [cm^] 


1 


■  I*  Quantum  Yield  from  I2  Photodissociation 

Mathematical  Model  of  I 2+  hv  liPsiz)  +  KPni)  yield  Curve, derived  from  Tellinghuisen/Brewer 

<l>3aL=  PolynondalFit[{{491,  .99},  {501,  0.93},  (509.1,  0.70},  {516.6,  0.62}, 
{527.7,  0.66},  {546.2,  0.72},  {559.4,  0.67},  {569,  0.59},  {589.6,  0.33}, 
{592.2,  0.35},  {603.7,  0.54},  {612.9,  0.67},  {623.9,  0.88}},  6]; 

03IA_]  :=  If[A  >  492.6,  (/>3a[A]  ,  1.0];  If[a2  !=2,  {Plot[03[A],  {A,  457,  620}, 

I* 

AxesLabel ->  {"  A  [xxm]  ImageSize ->  {318,  257},  PlotRange ->  All] , 

r  f  I*  1 

Plotf<^3[A],  {A,  457.7,  545.3},  AxesLabel ->  f"  A  [nm]",  " - 

L  I  I*  + 1 

ImageSize ->  {293,  236},  PlotRange ->  All]  }] ; 


r 

I*+I 
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■  Relative  Absorption  Cross  Sections  for  [IBr],  [Br  2]  and  [1 2] 


aa  =  Plot[{aabs[A*10-^  298.2],  aabs2[A*10'^  298.2],  aabs3[A*10-^  298.2]}, 

{A,  340,  650},  PlotRange->  All,  AxesLabel {"  A[nm]",  [can?]"}, 

PlotStyle  ->  {GrayLevBl[0]  ,  GrayIjevBl[0.7] ,  Dashing[{0.01}]  }, 

PlotLegend  ->  {"IBr",  "Br^",  "I2"}, 

LegendSize  ->  {  •  54,  . 21}  ,  LegendBackground  - >  GrayLevel  [ 0 . 95] , 

LegendPosition ->  {0.33,  0},  LegexidShadow ->  {0.02,  -0.02},  LegendLabel -> 
StyleFonn[ "Abs  Cross  Section",  FontSlant ->  "Italic"], 

DisplayFunction  ->  Identity]  ; 

If[a2  !=  2,  Show[aa,  DisplayFunction ->  $DisplayFunction,  ImageSize->  {575,  400}]] 


o-abs  [cm^] 


.Abs  Cross  See^on 
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■  Modeling  of  Solar  Emission  Spectrum  as  a  Function  of  Wavelength 


{(2.8978*10'^)  /5780,  £  =  dA  (Sola]^[A]); 

InterpolateRoot[  £,  {A,  4*10'^,  6*10’’'},  AccuracyGoal ->  10] } 

{5.01349x10'’,  {A 5.0055x10'’}} 


Solar  Exitance  V5  Wavelength: 

If[a2  !=2,  Plot  [SolaiMetA],  {A,  10'’,  9*10'’},  PlotRange ->  All, 
AxesLabel ->  {"  A[ni]",  "Me  [W/  m’]"},  UnageSize ->  {300,  270}]]; 


Me[W/m^] 
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■  Photon  Exitance  (Mq)  Spectrum  for  Generic  Blackbody  &  Sun 

100  A  Me  [A,  T] 

M<1[A_,  T_]  :=  - — i - - 

he 

SolariJq[A_]  :=  (0.99)  Mq[A,  5780] 

Wavelength  [m]  of  Peak  SolarExitance: 

£  s  Oa  (SolazMi2[A] ) ;  InterpolateRoot [  f,  {A,  5*  10~^,  7  *  10~^},  AccuracyGoal  ->  10] 

{A  ^  6.355668x10-''} 

Solar  Photon  Exitance  vj  Wavelength: 

If[a2  !=2,  Plot  [SolarMq[A],  {A,  10'’,  5*10'®},  PlotRange -> All, 

AjcesLabel ->  {"  A[m]",  " — — ■'},  ImageSize ->  {300,  270}]]; 

photons 

s 

2  10^^ 

1.5  10“ 

1  10“ 

5  10“ 
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F;=  Solar  Photon  Incidence  on  Earth  or  Satellite  Orbit  [photons /s  cn?  per  m  wavelength] 
Solar  fEq  [photons  / s  err? 7,  Ee  [W /  cm^]}:  all  wavelengths 

.  Rsun^ 

F[A_]  :=  10"^  - Sola3^[A] 

SunEarth^ 

{SolarIncP  =  NIntegrate[F[A],  {A,  10'^}]/ 

h  c 

SolarIncW=  NIntegrate[lO'*  —  P[A],  {A,  lO"'',  10'*}]} 

{6.3247x10",  0.13627} 

Solar  (Eq  [photons /s  cm?],  Ee  [W/err?]}: 
wavelengths  which  yield  positive  Br*/Br  inversion  (AN>0) 

{NIntegrate[F[A]  ,  {A,  457.7*10"®,  545.3*10"®}], 
h  c 

lllnteorate[l0"* - F[A]  ,  {A,  465*10  ®,  545.3*10"®}]} 

A 

{3.92133x10^*,  0.0142619} 

Maximum  Efficiency  for  IBr  Laser  (photonic,  energy}: 

{NInteorate[  F[A],  {A,  457.7*  10*  (-9)  ,  545.3*  10 *  (-9)  }]  /  NlntegrateC  F[A]  , 
{A,  10*  (-7),  10*  (-2)}],  Nlntegrate[10"®  (hc)/AF[A],  {A,  457.7*10*  (-9), 
545.3*10*  (-9)}] /NIntearate[10"®  (hc)/AF[A],  {A,  10*(-7),  10*(-2)}]} 

{0.0620002,  0.114055} 


Maximum  Efficiency  for  C4F9I  Laser  Competitors  {photonic,  energy): 

{NInteorateE  F[A],  {A,  250*10*(-9),  350  *  10*  (-9)  }]  /  NInteorateE  F[A]  , 
{A,  10*  (-7),  10*  (-2)}] ,  NlntegrateElO"*  (hc)/AFEA],  {A,  250*10*  (-9), 
350*10*  (-9)}]  /NlntegrateElO"*  (he)  /AFEA],  {A,  10*  (-7),  10*  (-2)}]} 

{0.00480755,  0.0601971} 
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Comparative  Plot  of  Solar  Exitance  &  IBr  Absorption  Spectrums 

PlotTeirp  =  Plot  [{aabs[A*10^  (-9)^  298,2]  /  aabs[497.8*  10^  (-9) ,  298.2]  , 
Sola2iM(I[A*10^  (-9)]  /  Solami[6.3557 *  10 ^  (-7)]}, 

{A,  150,  1250},  PlotStyle  ->  {GrayLevel[0] , 

Dashing[{0.01}]  },  AxesLabel ->  {"  A[nm]",  #  PlotLegend  -> 

{"IBr  Absorption",  "Solar  Emission"),  LegendSlze ->  (.45,  .22), 

LegendBackground  ->  6rayXievel[0.95] ,  LegendPosltlon ->  {0.17,  -0.4), 
IjegendShadovr->  {0.02,  -0.02),  LegendLabel ->  StyloFonii[" Spectral  Profiles", 
FontSlant  ~>  "Italic"] ,  DisplayFunction->  Identity]  ;  I£[a2  !  =  2, 

Show[{PlotTeni>},  DisplayFunction->  $DisplayFunction,  ImageSize  ~>  {580,  500}]]; 


(rjcr max 
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■  Development  of  IBr  BriPi/2)  Br(P3/2)  +  hr 
Laser  Rate  Equations  (Continuous  Pumping) 


■  Initialize  Data  Tables  /  Assign  Rate  Coefficients  &  Nominal  Cavity  Parameters 

q  =  0;  Label  [CleaurTables] ; 

BrStarDataq  =  • ; 

BrDatSq  =  • ;  IBrDataq  = . ;  lodDataq  =  • ;  Iod2Data<2  =  • ;  Br2Dataq  = . ; 

IStarData<2  = . ;  PhotonDataq  =  • ;  yData^  =  • ;  PowerDataq  =  • ;  Laserq  = . ; 

If  [UserTag  1=1,  (Tq  = . ;  Pcell<,  = . ;  Lg,  = . ;  SCq  = . ;  Rcoup^j  = .  i  = . ; 

Atube,  = . ;  LCq  =  • ;  AcutLOg  =  • ;  AcutHig  =  •;)];  q  +=  1;  If  [q  <=  6,  Goto[ClearTables]  ] 

A21  =  0.63;  Alase  =  2714 *  10^  (-9)  ;  vlase  =0*01  c  /  Alase;  A21IStar  =7.69; 


kql=  1.00  *  10^ 

(-12) 

(* 

Br*  quenching  by  IBr 

*); 

kq2  =  1.90  *  10^ 

(-11) 

(* 

Br*  quenching  by  I 

*) ; 

kq3  =  1.86  *  10^ 

(-12) 

(* 

Br*  quenching  hy  I2 

*) ; 

kq4  =  1.20  *  10^ 

(-13) 

(* 

Br*  quenching  hy  Br2 

*)  ; 

kqS  =  6.75  *  10^  (-13) 

(* 

Br*  quenching  by  Br* 

*) ; 

kq6  =  2.50  *  10^ 

(-14) 

(* 

Br*  quenching  by  Br 

*)  ; 

kq7  =  6.00  *  10^ 

(-11) 

(* 

Br*  quenching  by  IBr 

*)  ; 

kq8  =  3.50  *  10^ 

(-11) 

(* 

I*  quenching  by  I2 

*) ; 

kq9  =  5.60  *  10^ 

(-11) 

(* 

I*  quenching  by  Br2 

*); 

kel  =  4.60  *  10^ 

(-11) 

(* 

Br  +  IBr  I  +  Br2 

*) ; 

ke2  =  5.00  *  10^ 

(-11) 

(* 

Br  +  I2  IBr  +  I 

*) ; 

ke3  =  2.69  *  10^ 

(-13) 

{* 

I  +  Br2  IBr  +  Br 

*); 

ke4  =  6.607*10^ 

(-16) 

(* 

I  +  IBr  I2  +  Br 

*); 

krl=  3.00  *  10 

(-30) 

(* 

Br  +  Br  +  IBr  ->  Br2  +  IBr 

*); 

kr2  =  4.00  *  10^ 

(-32) 

(* 

Br*  +  Br  +  IBr  -4  Br2  +  IBr 

*) ; 

kr3  =  1.00  *  10^ 

(-32) 

(* 

I  +  Br  +  IBr  ^  2  IBr 

*); 

kr4  =  1.00  *  10^ 

(-32) 

(* 

I  +  Br*  +  IBr  ^  2  IBr 

*) ; 

kr5  =  3.00  *  10^ 

(-32) 

(* 

I*  +  Br  +  IBr  ^  2  IBr 

*) ; 

kr6=  3.00  *  10^ 

(-30) 

(* 

I  +  I  +  IBr  I2  +  IBr 

*) ; 

kr7  =  3.00  *  10^ 

(-32) 

(* 

I*  +  I  +  IBr  -4  I2  +  IBr 

*) ; 
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■  Preliminary  View  of  Relevant  Laser  Parameters/Pumping  Rates 

Total  IBr  Photodissociation;  Br(Pi/2)  and  Br(P3/2)  Generation  Rates 

1£  [UserTag  ==  1,  Goto  [Calcl]  ] ; 

ClearAll[IBrN,  Br2N,  Iod2N] ; 

To  =  298.2;  Pcello  =  70;  Lgo  =  300;  SCo  =  20000;  Rcoupo  =  0.89;  Atubeo  =  0.785; 

DPo  =  1.5;  AcutLoo  =  457.7*10*  (-9)  ;  AcutHio  =  545.3*10*  (-9)  ;  vFlowo  =  0; 

Rmlr  s  0.998;  Tcell  s  0.99;  p  s  1.1; 

Label [Calcl] ; 

series  =  0;  Ntag  s  0;  n  =  0;  LCn  =  N[p*LgQ,  4] ; 

AvD  =  200  vlase  V  ( (2  kT„  Iiog[2] )  /  (MassBrc*2) )  ;  gd  =  2/AvDV  (Log[2]  /tt); 

Aconc  =  10'^  SCn  Atuben  Lg,,  SCn;  zxt  =  (2  LCa)  /  c;  rp  =  trt  /  (1  -  (Tcell*4  PinirRcouE\,) ) ; 
PunpPwTQ  =  (SolarZncW  *  SCn  *  Lga  *  Atuben  / 1^)  ;  IBrO  *9. 659  *10*  18  (Fcelln  /  Tn) ; 
ase  =  10*4  (A21Alase*2)  /  (Stt}  gd;  Asp  =  (case)  /  (Lgn  Atub^) ; 
yth  =1/(2  Lg^)  Log[l  /  (Tcell*4  Rcoup^  Rmlr)  ]  ;  ANth  =  Yth/  ase;  Br20  =  0.04  IBrO; 

120  =  0.04  IBrO;  /3  =  (lOOvTlcm^,)  /Lg.; 

Rp[IBiai_#  Br2N_,  Iod2N_]  ;  = 

(SCn/QPn)  NIntegrate[F[A]  (IBi^*  aabs[A,  Tn] )  /  (IBrN*  aabs[A,  Tn] 

+  Br2N*aabs2[A,  Tn]  +  Iod2N*  aabs3[A,  Tn]  )  *  (1  -  Eiip[- (IBi^*  aabs[A,  Tn] 

+  Br2N*  aabs2[A,  Tn]  +  Iod2N*  aabs3[A,  Tn] )  DPnl )  /  {A,  AcutLOb,  AcutHin}]  ; 
Rpa[IBni_,  Br2N_,  Iod2N_]  s  = 

(SCn/Pp„)  IJIntegrate[F[A]  0[A1O*9]  (IBiai*aabs[A,  Tn])  /  (IBrN* aabs[A,  Tn] 
+  Br2N*aab82[A,  Tn]  *  Iod2N* aabs3 [A,  Tn])  *  (1  - Exp[- (IBidT* aabs[A,  Tn] 

+  Br2N* aabs2[A,  Tn]  Iod2N*aabs3[A,  Tn])  BPnDr  {A,  AcutLOn/  AcutHin}]; 
Fpb[IBrtI_,  Br2N_,  Iod2N_]  ;  = 

(SCn  /  PPn) 

NIntegrate[F[A]  (1-(^[A10*9])  (IBrN* aabs[A,  Tn])  /  (IBrN* aabs[A,  Tn] 

+  Br2N*aabs2[A,  Tn]  +  Iod2N* aabs3 [A,  Tn])  *  (1  - Exp[- (IBrtI* aabs[A,  Tn] 
Br2N*  aabs2[A,  Tn]  +  Iod2N*  aEd3s3[A,  Tn]  )  DPnl )  '  AcutLOn/  AcutHin}]; 
<^IBr  :=  NIntegrate[F[A]  <^[10*9 A]  aabs[A,  Tn], 

(A,  AcutLOb,  AcutHin}]  /NIntegrate[F[A]  aabs[A,  Tn] , 

(A,  AcutLOn,  AcutHin}]; 

4>IBre[IBrN_,  Br2N_,  Iod2N_]  :=Rpa[IBrN,  Br2N,  Iod2N]  /Rp[IBrN,  Br2N,  Iod2N] ; 
Fp2[IBrtI_,  Br2N_,  Iod2N_]  := 

(SCn/Bpn)  NIntegrate[F[A]  (Br2N*aabs2[A,  Tn])  /  (IBxN* aabs[A,  Tn] 

+  Br2N*aabs2[A,  Tn]  +  Iod2N* aabs3 [A,  Tn])  *  (1  - Esp[- (IBrN* aabs[A,  Tn] 

+  Br2N*aabs2[A,  Tn]  +  Iod2N*  aabs3[A,  Tn]  )  BPn] )  ,  {A,  AcutLOn,  AcutHin}]; 
Rp2a[IBrN_,  Br2N_,  Iod2N_]  :  = 

(SCn/PPn) 

NIntegrate[F[A]  02[A1O*9]  (Br2N* aabs2[A,  Tn])  /  (IBrN* aabs[A,  Tn] 

•f  Br2N* aabs2[A,  Tn]  Iod2N* aabs3[A,  Tn])  *  (1  - Eiqp[- (IBtiN* aabs[A,  Tn] 

+  Br2N*  aabs2[A,  Tn]  +  Iod2N* aabs3 [A,  Tn] )  EPn] )  ,  {A,  AcutLo^,  AcutHin}]  ; 
Rp2b[IBrN_,  Br2N_,  Iod2N_]  := 

(SCn  /  EPn) 

NIntegrate[F[A]  (2  -  <t>2  [A  10*9])  (Br2N*  aabs2  [A,  Tn] )  /  (IBrN*  aabs  [A,  Tn] 


no 


+  Br2N*aabs2[A,  T„]  h- Iod2N*  aabs3[A,  Tq]  )  *  (1  -  E}<p[- (IBiM*  oabs[A,  Tn] 

+  Br2N*oabs2[A,  Tn]  +  Iod2N*  aabs3[A,  Tn] )  CPa]  )  /  {A,  AcutLOn,  AcutHin}]; 
4>Br2  :=  NXntegrate[F[A]  <^2[10*9A]  aabs2[A,  Tq]  , 

{A/  AcutLob,  AcutHin}]  /NIntegrate[F[A]  aabs2[A,  Tn]r 
{A,  AcutLOh,  AcutHin}]  ; 

(^Br2e[IBr^_,  Br2N_,  Iod2N_]  :sBp2a[IBrN,  Br2N,  Iod2N]  /Bp2[IBrN,  Br2N,  Iod2N] ; 
Pp3[IBrN_,  Br2N_,  Ioa2N_]  :  = 

(Sc„/Di^)  NInteorate[F[A]  {Ioa2N*aabs3[A,  !„])  /  (IBrtl* CTab8[A,  Tn] 

+  Br2N*aabs2[A,  Tn]  +  Iod2N*oab83[A,  Tn])  *  (1  - Exp[- (IBrN* aab8[A,  Tn] 

+  Br2N* oab82[A,  Tn]  +  Iod2N* aab83[A,  Tn] )  Dp^]),  {A,  AcutLOn,  AcutHin}]; 
Rp3a[IB]^_,  Br2N_,  Zod2N_] 

(SCn/PPi,) 

NZiitegrate[F[A]  <^3[A10*9]  (Iod2N*aal>83[A,  Tn])  /  (IBitl* 7ab8[A,  Tn] 

+  Br2N*oabs2[A,  Tn]  -i- Iod2N*aab83[A,  Tn] )  *  (1  -  Exp[- (IBrN*  aab8[A,  Tn] 

-I-  Br2N*  aab82[A,  Tn]  +  Iod2N* oab83[A,  Tn] )  DPn] ) ,  {A,  AcutLo^,  AcutHin}]  i 
Rp3b[IBiai_,  Br2N_,  Ioa2N_]  :  = 

(SCn  /  HVi) 

NInteflrate[F[A]  (2 -(^3  [A  10 -^9])  (Iod2N*  aab83[A,  Tn] )  /  (IBrtJ*  aab8[A,  Tn] 

+  Br2N*aab82[A,  Tn]  Iod2N* aab83[A,  Tn])  *  (1  - E}{p[- (IB;^* oab8[A,  Tn] 

+  Br2N*  aab82  [A,  Tn]  +  Iod2N*  aab83  [A,  Tn] )  PPnl )  #  AcutLo^,  AcutHin)  ]  f 
<t>lo62  :=NIntegrate[F[A]  <^3[10a9A]  aab83[A,  Tn], 

{A,  AcutLOb,  AcutHin}]  /NIntegrate[F[A]  aab83[A,  Tn] , 

{A,  AcutLOn,  AcutHin}] ; 

(^Iod2e[IBrN_,  Br2N_,  Iod2N_]  :=Bp3a[IBi^,  Br2N,  Zod2N]  /Rp3[IBrN,  Br2N,  Iod2N]; 
RpTot[IBrN_,  Br2N_,  Iod2N_]  := 

RpEXBitl,  Br2N,  Iod2N]  +Bp2[IB;^,  Br2N,  Iod2N]  •t-Bp3[IBrN,  Br2N,  Iod2N]; 
BrStarTot[IBrN_,  Br2N_,  Iod2N_]  :=Rpa[IBrN,  Br2N,  Iod2N]  +Itt>2a[IBrN,  Br2N,  Ioa2N] ; 
BrTot[IBrN_,  Br2N_,  Iod2N_]  t=Bpb[IBi:N,  Br2N,  Iod2N]  +Bp2b[IBrN,  Br2N,  Iod2N] ; 

<^Tot[IBi^,  Br2N_,  Iod2N_]  :*  (Bpa[IBrN,  Br2N,  Io<32N]  ■fBp2a[IBrN,  Br2N,  Iod2N])  / 
(Bp [IBrN,  Br2N,  Iod2N]  +Bp2[IBrN,  Br2N,  Iod2N] )  ; 

PLi8t  =  {{"Doppler-Broadened  Linewidth  ",  "Avd;",  avD,  "Hz"}, 

{"Peak  Tranaition  Lineahape  ",  "g(vo) :",  gd,  "8"}, 

{"Expoaed  Area  of  Solar  Concentrator  ", 

"Ac  :",  Aconc,  "\!\(m\*2\) "},  {"Photon  Round  Trip  ",  "rrt  s",  trt,  "8"}, 

{"Photon  Lifetime  ",  "tp:",  tp,  "8"},  {"Initial  Concentration/  IBr  ", 

"[IBr]o:",  IBrO,  "\! \(cm\*-3\) "},  {"Stlm  Bniaaion  Croaa-Section  ", 
cae,  "\!\(cm\*2\) "},  {"Spontaneoua  Emiaaion  Rate  ", 

"Aaps",  Aap,  "\!\(8\*-l\)"}, 

{"Threahold  Gain  Coefficient  ",  "Ytus",  yth,  "\!\(cni\*-l\) "}, 

{"Threahold  Population  Inversion  ",  "ANu,:",  ANth,  "\!\(cm\^-3\) "}, 

{"",  "",  ""},  {"Total  Incident  Solar  Power",  PunpPwr,  "W"}, 

{"Initial  IBr  Photodissociation  Rate  ”,  "RpiBcS",  Rp[IBrO,  Br20,  120], 
"\!\(cm\*-3\)  \l\(s\*-l\) "},  {"Quantum  Yield:  IBr  -»  I  +  \!\(Br\**\)  ", 

0IBre[IBrO,  Br20,  120],  ""},  {"Initial  Bra  Photodissociation  Rate  ", 
"RPBr,!"»  Rp2[IBrO,  Br20,  120],  "\! \(cm\*-3\)  \!  \  (sX-'-lX)  "}  , 
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{"Quantum  Yield:  Bra  -»  Br  +  \!\(Br\**\)  ", 

"♦sra?"#  0Br2e[IBrO,  Br20,  120],  ""}, 

("Initial  Photodissociation  Rate  (Total)  ",  "Rp,:",  RpTot[IBrO,  Br20,  120] ,  ■ 
"\!\(cm\A-3\)  \!\(s\*-l\)"}, 

{"\!\(Br\**\)  Quantum  Yield  (Combined)  ", 

(<>Tot[IBrO,  Br20,  120],  ("Initial  Br(Pi/2)  Punp  Rate  (Total)  ",  "Rper**"/ 

BrStarTot[IBrO,  Br20,  120],  "\!\(cm\'^-3\)  \! \(s\*-l\) 

("Initial  Br(P3/a)  Punp  Rate  (Total)  ",  "RPer*"/ 

BrTot[IBrO,  Br20,  120],  "\ 1 \ (can\*-3\)  \!\(s\*-l\) 

("Initial  Bra  Photolysis  Contribution  ", 

"RPbtj/t:",  (100Rp2[IBrO,  Br20,  120])  /RpTot[IBr0,  Br20,  120],  "%"}, 
("Initial  la  Photolysis  Contribution  ", 

"RPij/t!”/  (100Rp3[IBr0,  Br20,  120])  /RpTot[IBr0,  Br20,  120],  "%"}}; 
TableForm[PList,  TableSpaclng ->  (1,  1}] 


Doppler-Broadened  Linewidth 

AVd: 

1.52374x10® 

Hz 

Peak  Transition  Lineshape 

g(Vo)  : 

6.16536x10-® 

s 

Exposed  Area  of  Solar  Concentrator 

A^: 

9.42x10® 

m2 

Photon  Round  Trip 

rrt: 

2.2x10-® 

s 

Photon  Lifetime 

tp : 

1.49885x10-'' 

s 

Initial  Concentration/  IBr 

[IBrlo: 

2.26737x10“ 

cm“^ 

Stim  Emission  Cross-Section 

c^st: 

1.13836x10-“ 

cm2 

Spontaneous  Emission  Rate 

Asp: 

1.45014x10-® 

s-i 

Threshold  Gain  Coefficient 

Y  th  • 

0.000264562 

cm“^ 

Threshold  Population  Inversion 

ANth: 

2.32407x10“ 

cm'^ 

Total  Incident  Solar  Power 

PumpPwr 

w 

Initial  IBr  Photodissociation  Rate 

^PlBr  • 

4.88849x10“ 

cm"^ 

S“^ 

Quantum  Yield:  IBr  ^  I  +  Br* 

0IBr  • 

0.640688 

Initial  Br2  Photodissociation  Rate 

^PBr2  * 

5.43725x10“ 

cm"^ 

s-1 

Quantum  Yield:  Br2  Br  +  Br* 

0Br2  • 

0.689597 

Initial  Photodissociation  Rate  (Total) 

RPt: 

5.03999x10“ 

cm"^ 

S"! 

Br*  Quantum  Yield  (Combined) 

0T  * 

0.641226 

Initial  Br(Pi/2)  Pump  Rate  (Total) 

RPer*  : 

3.16949x10“ 

cm~^ 

S~^ 

Initial  Br(P3/2)  Pump  Rate  (Total) 

RPer* 

1.82774x10“ 

cm"^ 

s-1 

Initial  Br2  Photolysis  Contribution 

RPBr2  /T  * 

1.07882 

% 

Initial  I2  Photolysis  Contribution 

^Pl2/T’ 

1.92728 

% 

Hyperlink  To:  j 

WuilKkietwh 
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3-D  Representation  of  IBr  Absorption  of  Incident  Radiation  {[IBr\)Q  and  A: 


r  r(  r  Q  f  9.659*10^®  \  A 

If[a2  !=2,  Plot3D[  -  E3q?[-aabs[10“®  A,  Tq]  - - - PressJ  EPo] 

{A,  200/  750}/  {PresS/  0/  7}/  PlotRange ->  All/  Plot  Points ->  50/ 
Viewpoint  ~>  {1.335/  -2.882/  1.168}/ AxesLabel -> 


{"A  [nm]"/  "  IBr 


[torr] \nPressure"/  ” - "}/  lmageSi2e->  {550/  500}]]; 

IlNC 


IBr  [torr] 


A  [nm] 
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IBr  Absorption  Fraction  for  Incident  Radiation  within  Wavelength  Cutoffs: 


If[a2  !=  2, 

Plot[(l-Exp[-aabs[10-*  A,  To]  IBrOEPol),  {A,  (10*  AcutLOo)  /  (10*  AcutHio) }, 
AxesLabel->  {"A  [nm]",  PlotRange ->  All,  ImageSize ->  (360,  270}]]; 


Iabs 

IlNC 


Initial  Photodissociation  Pumping  Rate  via  Solar  Excitation  for  Varying  [IBr]o: 

If[a2  !=2,  Plot[RpTot[IBm,  0.04  IBm,  0.04  IBm]^  {IBm,  10^°,  10^’}/  AxesLabel -> 
{"  [IBr]o  (can."^)  "Punc>\nRate  [cnr^  IinageSize->  {360,  270}]]; 


Pump 

Rate  [cm"^  s"^] 


7 

6 

5 

4 

3 

2 

1 


10'^ 

10'* 

10'* 

10'* 

10'* 

10'* 
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IBr  Population  Decline  Upon  Photodissociation  by  Solar  Concentration/Excitation  (Logarithmic  Scale): 

IBrOnly  :=  NDSolve[{nIBr' [t]  == -Rp[nIBr[t] ,  0.04nIBr[t], 

0.04nIBr[t]],  nIBr[0]  ==IBrO},  iiIBr[t] ,  {t,  0,  10  *}]; 

If[a2  1=2,  LogPlot [Evaluate [xiIBr[t]  /.  IBrOnly],  {t,  0,  10  *}, 

AxesLabel ->  {"  time  [s]",  "[IBr]  (can'*)"},  ImageSlze ->  {354,  258}, 

PlotRange  ->  All]  ] ; 


[IBr]  (cm'*) 


Production  Rate  ofBr(Pii2)  upon  IBr  Photolysis,  with  Spontaneous  Emission  &  IBr  Quenching: 

BrStarOnly  :=  NDSolve[{BrS'  [t]  ==  BrStarTot[IBrO,  Br20, 

120]  -A21BrS[t]  -  (kqlIBr0BrS[t]),  BrS[0]  ==  0},  BrS[t],  {t,  0,  10'*}] 
I£[«i2  !=2,  Plot  [Evaluate  [BrS[t]  / .  BrSteurOnly] ,  {t,  0,  2*10'®},  AxesLabel -> 
{"  time  [s]",  "[Br*]  (cmr*)"},  imageSize->  {354,  258},  PlotRange ->  All]  ] ; 


[Br*]  (cm-*) 


0.00001 


0.000015 


0.00002 


Pump  Rate  of  Br(Pi/2)  as  a  Function  of  IBr  Partial  Pressure  [Torr] 
and  Gain  Cell  Temperature  [K] 


ro™p2[IBr_/  Teir|p_] 


(  Sco  \ 

iLgo  ) 


*  (Nlntegrate[<^[10^  A]  F[A]  (1  -  Exp[-aabs[A, 


Tesap]  IBtPPq]  ) ,  {A,  AcutLOo,  AcutHio}] )  ; 


I£[a2  !=  2,  Plot3D[ppuinC>2[ 


9.659*10“ 

Tenp 


Press  ,  Temp],  {Press,  .1,  70}, 


{Teicqp,  0.1,  3000),  PlotPolnts  ->  50,  Axesljabel  >> 
{”  IBr  [torr]  \nPressure”,  "Teinp  [K]", 

”  Rp  [Br*]  \n[cm"^  s“^]”},  ImageSize ->  {550,  500), 
Viewpoint ->  {-1.254,  2.593,  1.775}]]; 
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■  Comparison  of  Initial  Br  and  Br*  Pump  Rates  vs  Insolant  Wavelength  Limits 


If  [212  !s2,  {off  [Power:  slnfy,  oo::lni]et,  Plot3D:  :plnc,  Plot3D:  :gval] , 
ppun®>3  [Al_,  A2_]  :  =  (If  [A1  <  A2,  1,  NUll] )  *  lO'”  1 ^ j 

NInteorato[0[lO®  A]  F[A]  (1  -  E:5>[-aabs[A,  To]  IBrOEPo]),  {A,  Al,  A2}]j 

-  [-^1  NIntegrate[(l-*[10* A])  P[A]  (1  - E!xp[-aabs[A,  To]  IBrODPo]), 

\  i^Po  / 

{A,  Al,  A2}]j,  aa=  Plot3D[ppuinp3[Al*10'*,  A2*10-*],  {Al,  450,  545}, 


{A2,  450,  545}, 

10^® 

AxesLabel->  {"Aio«r  [nm]  ",  "A„Bp,r  [nm]  ",  "  ABp  \n[x  — — ] 

°  citf  s  ^ 


TextStyle->  {FontSize ->  7} ,  Plot  Points ->  45,  IinageSize->  {440,  330}], 
ppuirp4[Al_,  A2_]  :=  (If[Al<A2,  1,  NUll])  *  [[-^j  NIntegrate[<^>[10®  A]  F[A]  (1- 

Eicp[-aabs[A,  To]  IBrOEp,])#  (A,  Al,  A2}]j  j  [(-^j 

Nlntegrate[(l-<*[10*  A])  F[A]  (1  -  Eicp[-aabs[A,  To]  IBrOEPo]),  (A,  Al,  A2}]j, 
ab=  Plot3E[ppuiBp4[Al*10-*,  A2*10-*],  {Al,  450,  545},  {A2,  450,  545}, 


AxesLabel->  {"Aio«.r  [nm]  ",  "A^r  [nm]  ",  "  RPo  [ - ]  "},  TextStyle-> 

^  Br  •' 

{FontSize  ->  7},  PlotPoints  ->  45,  ImageSize  ->  {440,  330}] , 

On [ Power :  :lnfy,  oo::indet,  Plot3E:  :plnc,  Plot3D:  :gval]  }] ; 
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■  Initial  Br(Pi/2)  Pump  Rate  as  a  Function  of  Solar  Concentration  and  [IBrJo: 

Scone 

Pmtt>5[Sconc_r  IBrr_]  := - RpTot[IBrr,  0.04IBrr,  0.04  1Brr]; 

SCo 

If[a2  !=2,  Plot  3D  [PmripS  [Scone,  IBrr],  {Scone,  200,  30000},  (IBrr,  10^^,  3  10^^}, 
AxesLabel ->  {"Sc”,  "[IBr]o  (cm“3)  ",  "  \n[cm-3  s“^]"},  UnageSize ->  {550,  500), 

PlotPoints  “>  40] ] ; 
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■  Assign  Multiple  Parameter  Series  for  Comparison  (Optional): 

If  [UserTag==  1,  Goto[CalcMax)y]  ]  ; 
series  =  6; 

d  =  0;  While[  (d  =  d  +  1)  <=  series,  {*  Assign  Data  Sets  *) 

{Td  =  298*2,  Pcelld  =  70,  Lg^  =  300,  Sc^  =  20000,  Rcoup^  =  0.89,  Atubea  =  0.785, 
PPd  =  1.5,  AcutliOd  =  457.7*10^  (~9),  AcutHid  =  545.3*10^  (-9)  ,  vFlcWd  =  0, 
Pcelld  =  Extract [{25,  40,  55,  70,  85,  100},  d]}]; 

Rnciir  =  0.998;  Tcell  =  0.99;  p  =  1.1; 


ParameterList  =  { 


(* 

1 

*) 

"Operating  Tenperature  [K]", 

(* 

2 

*) 

"IBr  Pressure  [Torr]", 

(* 

3 

*) 

"Gain  Path  Length  [cm]  ", 

(* 

4 

*) 

"Solar  Concentration", 

(* 

5 

*) 

"Coupler  Reflectivity", 

(* 

6 

*) 

"Area/  Laser  Tube  [\!  \  (cm\^2\)  ]  ", 

{* 

7 

*) 

"Pumping  Path  Length  [cm]  ", 

(* 

8 

*) 

"Acutoff  (lower)  [m]  ", 

(* 

9 

*) 

(upper)  [m]". 

(* 

10 

*) 

"Flow  Velocity  [m/s]  "}  ; 

Parameter  =  ParameterList  [  [2]  ]  ; 

<2=1;  Label  [DataLabel]  ;  Setq  =  Pcell^ 

;  q  +  =  1;  If  [  (q  <*  series)  ,  Goto  [DataLabel]  ]  ; 
Label  [CalcMany] ; 

Ntag  =  1; 


Hyperlink  To: 
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■  Compute  Evolution  of  Laser  Populations  Under  Continuous  Solar  Pumping 

Kinetic  Package  #1:  Interpolation  Map  Model  (A) 

I£[  ( (UserTag  ==  1)  &&  (a3  1=2)),  Goto[Endliong]  ]  ; 

l£[UserTag  ==  1,  Null,  tmax  =  1.0  10^-2];  StairtTizne  =  SessionTiine[]  ; 

ClearAll[r,  IBr,  lod,  BrStar,  Br,  AN,  y#  Iod2,  Br2, 

IStar,  Photon,  PowerOut,  LLaser,  FinalList,  t] ; 

I£  [Ntag  ==  1,  n  =  1,  n  =  0]  ;  Label  [Recycle]  ; 

Lasern  = . ; 

IBrDatan  =  * ;  lodDatan  = » ;  BrStarDatan  = . ;  BrDatan  = . ;  lod2Datan  = . ; 

Br2Datan  = . ;  IStarDatan  = . ;  vData^  = . ;  PhotonDatan  = . ;  PowerDatan  =  • ; 

LCn  =  N[p  *  Lg„,  4]  ;  /3  =  (100  vFloWa)  /  Lg^; 

AvD  =  200  vlase  V  ( (2  kTn  Log[2] )  /  (MassBr  c^2) )  ;  gd  =  2  /  AvD  V  (Log[2]  /tt); 

Aconc  =  10"^  SCa  Atub^  Lg^  SCa;  rrt  =  (2  LCa)  /  c;  rp  =  rrt  /  (1  -  (Tcell  ^  4  Rmir  Rcoup^) )  ; 
PumpPwr^  =  (SolarIncW*  SCn  *  Lg„  *  Atuben  /  Dp^)  ;  IBrO  =  9 . 659  *  10  ^  18  (Pcella  /  Ta)  ; 
ase=10^4  (A21Ala8e^2)  /  (Stt)  gd;  Asp  =  (case)  /  (Lg^ Atubea)  ; 

Yth  =1/(2  Lg^)  Iiog[l /  (Tcell^4  Rcoup^ Rmir)  ]  ;  ANth  =  yth/  ase;  Br20  =  0.04  IBrO; 

120  =  0.04  IBrO; 


p  =  0;  I£[n  ==  1,  While[  (p  =  p+  1)  <=  21, 

PList[[p,  3]]  =  {AvD,  gd,  Aconc,  rrt,  rp,  IBrO,  ase.  Asp,  yth,  ANth,  PumpPwr, 
Rp[IBr0,  Br20,  120],  0IBr,  Rp2[IBrO,  Br20,  120],  0Br2,  RpTot[IBr0,  Br20,  120], 
0Tot[IBrO,  Br20,  120],  BrStarTot[IBr0,  Br20,  120], 

(1- 0Tot[IBrO,  Br20,  120])  RpTot[IBr0,  Br20,  120], 

(100  Rp2  [IBrO,  Br20,  120])  /RpTot[IBr0,  Br20,  120]  }  [  [p]  ]  ]  ]  ; 

I£[  ( (Ta  !  =  tempi)  I  I  (Pcella  1  =  pressl)  |  | 

(Cpn  !  =  pathl)  I  I  (AcutliOii  !  =  All)  |  |  (AcutHia  I  =  Ahl) ) , 

PUMPl  =  FunctionInterpolation[Rp[x,  y,  z]  /  Sc^,  {x,  0.3  IBrO,  1.1  IBrO), 

{y,  0.035  IBrO,  0.5  IBrO},  {z,  0.035  IBrO,  0.5  IBrO}]; 

Punpla  =  FunctionInterpolation[Rpa[x,  y,  z]  /  SCa#  (x,  0.3  IBrO,  1.1  IBrO}, 

(y,  0.035  IBrO,  0.5  IBrO},  (z,  0.035  IBrO,  0.5  IBrO}]; 

Puirplb  =  FuncticaiInterpolation[  (PUMPl[x,  y,  z]  -  Pui!pla[x,  y,  z] )  , 

{X,  0.3  IBrO,  1.1  IBrO},  {y,  0.035  IBrO,  0.5  IBrO},  {z,  0.035  IBrO,  0.5  IBrO}]; 

PUMP2  =  FunctionInterpolatlon[Rp2 [X,  y,  z]  /SCa,  {x,  0*3  IBrO,  1.1  IBrO}, 

{y,  0.035  IBrO,  0.5  IBrO},  {z,  0.035  IBrO,  0.5  IBrO}]; 

Punp2a  =  FunctionInterpolation[Rp2a[x,  y,  z]  /SCq#  (x,  0.3  IBrO,  1.1  IBrO}, 

(y,  0.035  IBrO,  0.5  IBrO},  (z,  0.035  IBrO,  0.5  IBrO}]; 

Puinp2b  =  FunctionInterpolation[  (2  PUMP2  [x,  y,  z]  -  Pump2a[x,  y,  z] )  , 

{X,  0.3  IBrO,  1.1  IBrO},  (y,  0.035  IBrO,  0.5  IBrO},  {z,  0.035  IBrO,  0.5IBr0}]; 

PUMP3  =  FunctionInterpolation[Rp3[x,  y,  z]  /SCa/  (x,  0.3  IBrO,  1.1  IBrO}, 

{y,  0.035  IBrO,  0.5  IBrO},  {z,  0.035  IBrO,  0.5  IBrO}]; 

Pimnp3a=  FunctionInterpolation[Rp3a[x,  y,  z]  /  SCn,  {x,  0.3  IBrO,  1.1  IBrO}, 
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{y,  0.035  IBrO,  O.SIBrO},  {z,  0.035  IBrO,  0.5IBr0}]; 

Puinp3b  =  FuiictloiiIiitezpolation[  (2  FaMP3  [x,  y,  z]  -  Puiiip3a[x,  y,  z] ) , 

{X,  0.3IBr0,  l.lIBrO},  {y,  0.035 IBrO,  0.5IBr0},  {z,  0.035 IBrO,  0.5IBr0}]; 


tetqpl  =  Tn;  pressl  =  Pcelln;  pathl  =  Ep^;  All  =  AcutLcv;  Ahl  =  AcutHin;  ] ; 


r  =  A21+  (kql*IBr[t])  +  (kq2*Iod[t])  +  (kq3  *  Iod2  [t] )  + 

(kq4*Br2[t])  +  (]ai5*  BrStar[t] )  +  (kq6*Br[t]); 

AN  =  BrStar[t]  -  (1/2)  Br [t] ; 

tir  sJBrlt]  +Br2[t]  +Iod2[t]  +  (Iod[t]  +BrStar[t]  +Br[t])  /2; 

Lasern  :  =  NDSolve  [  { 

IBr'  [t]  ==  -  SOn*PaMPl[IBr[t] ,  Br2[t],  Iod2[t]]  -  (IBr[t]  *  P)  +  ({ijf*  $)  / 1.08) 

+  (ke2*Br[t]  *Iod2[t])  + 

(ke3*Iod[t]  *Br2[t])  -lBr[t]  ((kel*Br[t])  +  (ke4* Iod[t] ) ) 

+  IBr[t] 

((kr4*BrStar[t]  *Iod[t])  +  (kr3*Br[t]  *Iod[t])  +  (kr5* IStar[t]  *Br[t])), 
IBr[0}  s=  IBrO, 


Iod' [t]  == 

SCn*PUMPl[IBr[t],  Br2[t],  Ioa2[t]]  +  SCn*Puin?3b[IBr[t] ,  Br2[t],  Iod2[t]] 

+  (ke2*Br[t]  *Iod2[t])  + 

IStar[t]  (A21IStar+  (kq7*IBr[t])  +  (kqO  *  Iod2[t] )  +  (kq9  *Br2[t] ) ) 

+  (kel*Br[t]  *IBr[t])  - 

Iod[t]  ( (ke3*Br2[t] )  +  (ke4*IBr[t])  +  (kr4*BrStar[t]  *IBr[t]) 

+  (kr3*Br[t]  *IBr[t])  +  (kr7*IStar[t]  *IBr[t])  +  (2kr6*Iod[t]  *IBr[t])), 
lod[0]  ss  0, 

BrStar' [t]  == 

SCn*Punpla[IBr[t] ,  Br2[t],  Iod2[t]]  +  SCn  *  PuiH?2a[IBr[t] ,  Br2[t],  Ioa2[t]] 

-  (BrStar[t]  *P)  -  case  (Iig^/LCn)  ANPhoton[t] 

-BrStar[t]  (r+  (kr2*Br[t]  *IBr[t])  +  (kr4* BrStar [t]  *IBr[t])), 

BrStar [0]  ss  0, 


Br'[t]  == 

SCn*P«nrplb[IBr[t] ,  Br2[t],  Iod2[t]]  +  SCn*Puinp2b[IBr[t] ,  Br2[t],  Iod2[t]] 

(Br[t]  *p)  +case  (Lgn/Lc„)  ANPhoton[t]  +  (r*BrStar[t])  +  (ke3*Iod[t]  *Br2[t]) 
(ke4*Iod[t]  *IBr[t])  - 

Br[t]  ((kel*IBr[t])  +  (ke2*Iod2[t])  +  (kr2  *  BrStar [t]  *IBr[t]) 

+  (2krl*Br[t]  *IBr[t])  +  (kr3*Iod[t]  *IBr[t])  +  (kr5*  IStar[t]  *IBr[t])), 
Br[0]  ==  0, 

Iod2'[t]  == 

-SCn*PUMP3[IBr[t],  Br2[t],  Iod2It]]  -  (Iod2[t]  *P)  +  ((0.0^ilr*p)  /1. 08) 

+  (ke4*Iod[t]  *IBr[t])  +  (kr7*IStar[t]  *Iod[t]  *IBr[t]) 

+  (kr6*Iod[t]  *2*IBr[t])  -  (Iod2[t]  *ke2*Br[t]), 

Iod2[0]  ss  0.04  IBrO, 
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Br2'[t]  ==  -SCn*PDMP2[IBr[t] ,  Br2[t],  Iod2[t]]  -  (Br2[t]  *iS) 

+  ((0.04^*/3)  /1. 08)  +Br[t]  ( (kel* IBr[t] }  *  (kr2*BrStar[t]  *IBr[t]) 

+  (krl*Br[t]  *IBr[t]))  -  (ke3*Iod[t]  *Br2[t]), 

Br2[0]  ss  0.04  IBrO, 

IStar'[t]  ==  SCn*Pump3a[IBr[t],  Br2[t],  Iod2[t]]  - 
(IStar[t]  *  (P*  A21IStar) )  -  ZStar [t]  ( (kqfZ  *  ZBr [t] ) 

+  (kq8*Zod2[t])  + 

(kq9  *  Br2  [t] )  +  (kr7  *  Zod[t]  *  ZBr [t] )  +  (kr5  *  Brit]  *  ZBr [t] ) ) , 

ZStar[0]  ==  0, 

Photon'  [t]  == 

(AspBrStar[t]  +  c  ase  (Z«„ /  Lc^)  (MT-nNth)  Photon[t]),  Photon[0]  =- 0}, 

{ZBr[t] ,  Zod[t] ,  BrStar[t] , 

Br[t],  Zod2[t],  Br2[t],  ZStar [t] ,  Photon[t]},  (t,  0,  tmax}, 

HaxSteps  ->  Znflnity] ; 

PhotonBatan  =  Evaluate [Photon[t]  / .  ZAsern]  ;  PhotonZiatan  =  Extract  [PhotonDatan,  1] ; 
ZBrDatan  =  Evaluate! ZBr [t]  / .  Lasern]  i  ZBrDatan  =  Extract [ZBrDatan#  1]  ; 

BrStarDatan  =  Evaluate! BrStar[t]  /  •  Lasern]  ;  BrStarDatan  =  Extract  IBrStarDatan,  1]  ; 
BrDatan  =  Evaluate! Brit]  / •  Lasern] ;  BrDatan  =  Extract IBrDatan,  1] ; 

ZodDatan  =  Evaluate!  Zod  It]  /•  Lasern]  >  ZodDatan  =  Extract  I XodDatan#  1]  ; 

Br2Datan  =  Evaluate!Br2  It]  / .  Lasern] ;  Br2I)atan  =  Extract  I Br2Datan,  1]  ; 

Zod2Datan  =  Evaluate!Zod2!t]  /.  Lasern]  f  Zod2Datan  =  Extract  I  Xod2I>atan,  1] ; 
ZStarDatSn  =  Eval\iate!ZStar!t]  / .  Lasern] ;  ZStarDatSn  =  Extract  I ZStarDatSn,  1] ; 
vDatan  =  (BrSteirDatan  -  (1/2)  BrDatan)  ose; 

(1  -  RCOUPn) 

PowerDatan  =  PhotonDatan  *  h  *  v  lase  *  c  *  Tcell - ; 

2 

n  +=  1;  l£[n  <=  series,  Goto[Recycle]  ]  ;  n  =  0; 

Print [ 

"Total  Processing  Time:  ",  N[  (SessionTiine[]  -  StartTiine)  /  60,  3],  "  minutes"]; 
Label[EndIiong];  Play[  Sin[700t  +  25t  Sin[350  t]],  {t,  0,  5}  ] 

Total  Processing  Time:  220.  minutes 

-  Sound  - 


123 


■  Kinetic  Package  #2:  Interpolation  Map  Model  (B) 

Using  Interpolated  Representations  of  Solar  Pumping;  Integrated  Quantum  Yields 

I£[  ( (UserTag  ==  1)  &&  (a3  !  =  2) )  ,  Goto[EndLong]  ]  ; 

X£[UserTag  ==  1,  Null,  tmax  =1.0  10^-2] ;  St5u:tTiine  =  SessioiiTiine[] ; 
Cleeu:All[r,  IBr,  lod,  BrStar,  Br,  y,  Iod2,  Br2, 

IStar,  Photon,  PowerOut,  LLaser,  FinalLlst,  t] ; 


If  [Ntag  ==  1,  n  =  1,  n  =  0] ; 

Label [Recycle] ; 

Lasern  = . ; 

iBrDatan  = . ;  lodDatein  = . ;  BrStarDatan  = . ;  BrDatan  = . ;  Iod2Datan  = . ; 
Br2Dataa  = . ;  IStarDatan  = . ;  YData^  = . ;  PhotonDatan  = . ;  PowerDatan  = . ; 


Lc„  =  N[p*Lg„,  4];/3=  (lOOvPlov^,)  /  (l+0*LgJ; 

AvD  =  200  vlase  V  ( (2  kT„  Log[2] )  /  (MassBrc*2) )  ;  gd  =  2  /  AvdV  (Iiog[2]  /tt)  ; 
Aconc  =  10  ^  (-4)  SCn  Atuben  SCn; 

trt  =  (2  LCn)  /c;  tp  =  rrt  /  (1  -  (Tcell*4  Rmir  Rcoup^) )  ; 

PuiiC)Pvnr„  =  (SolarIncW *  SCn  *  Lgn  *  Atuben  /  PR,) ;  IBrO  =  9 . 659  *  10  *  18  (Pcelln  /  Tn) ; 
ase  =10*4  (A21Alase*2)  /  (Stt)  gd;  Asp  =  (case)  /  (Lg^  Atuben)  ; 

Yth  =1/(2  Lg,)  Log[l  /  (Tcell * 4 Rcoup^  Rmir)  ] ;  ANth  =  yth/  ase;  Br20  =  0.04  IBrO; 
120  =  0.04  IBrO; 


p  =  0;  l£[n  ==  1,  vaille[  (p  =  p+ 1)  <=  21, 

PLlst[[p,  3]]  =  {AvD,  gd,  Aconc,  rrt,  tp,  IBrO,  ase.  Asp,  yth,  ANth,  PinrpPwr, 
Rp[IBr0,  Br20,  120],  (plBr,  Fp2[IBr0,  Br20,  120],  (f>Bx2,  RpTot[IBr0,  Br20,  120], 
(^Tot[IBr0,  Br20,  120],  BrStarTot[IBr0,  Br20,  120], 

(l-.*Tot[IBr0,  Br20,  120])  RpTot[IBr0,  Br20,  120], 

(100Rp2[IBr0,  Br20,  120])  /RpTot[IBr0,  Br20,  120]  }  [  [p]  ]  ]  ]  ; 

I£[  ( (Tn  !  =  tenDp2)  |  |  (Pcelln  I  -  press2)  |  | 

(Dp„  !  =  path2)  I  I  (AcutLOh  !  =  A12)  |  |  (AcutHi^  !  =  Ah2)  )  , 

Punpl  =  FunctlonInterpolation[Bp[x,  y,  z]  /SCn,  {x,  0.6 IBrO,  1.05 IBrO}, 

{y,  0.035  IBrO,  0.3  IBrO},  {z,  0.035  IBrO,  0.3  IBrO}]; 

Punp2  =  FunctlonIntezpolatlon[Rp2 [X,  y,  z]  /SCn>  {x,  0.6  IBrO,  1.05  IBrO}, 

(y,  0.035  IBrO,  0.3  IBrO},  {z,  0.035  IBrO,  0.3  IBrO}]; 

Punp3  s  PUnctlonInterpolation[Bp3 [X,  y,  z]  /SCn,  (x,  0.6  IBrO,  1.05  IBrO}, 

{y,  0.035  IBrO,  0.3  IBrO},  {z,  0.035  IBrO,  0.3  IBrO}]; 
tenp2  =  Tn;  press!  =  Pcelln;  path!  =  Dp„;  A12  =  AcutLOb;  Ah2  =  AcutHin;] ; 


r  =  A21  +  (kql  *  IBr[t] )  +  (kg!  *  Iod[t] )  +  (ka3  *  Iod2  [t] )  + 
(kq4*Br2[t])  +  (kq5*  BrStar  [t] )  +  (kq6*Br[t]); 

AN  =  BrStar [t]  -  (1/2)  Br[t]; 

ilfsTBx[f\  +Br2[t]  +Iod2[t]  +  (Iod[t]  +  BrStar [t]  +Br[t])  /2; 
Lasern  :  =  NDSolve  [  { 
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IBr'  [t]  ==  -  Sc„*Puirpl[IBr[t] ,  Br2[t],  Iod2[t]]  -  (IBr[t]  */3)  +  /1. 08) 

+  (ke2*Br[t]  *Iod2[t])  + 

(ke3*Iod[t]  *Br2[t])  -IBr[t]  ((kel*Br[t])  +  (ke4*lod[t])) 

+  IBr[t] 

((kr4*BrStar[t]  *lod[t])  +  (kr3*Br[t]  *Iod[t])  +  (kr5*  IStar[t]  *Br[t])), 
ZBr[0]  ==  IBrO, 

Iod'[t]  ==  SCn*Punq?l[IBr[t]  ,  Br2[t],  Ioa2[t]]  + 

(2-i^Iod2)  SCa*Puirp3[IBr[t],  Br2[t],  Iod2[t]] 

(ke2*Br[t]  *Iod2[t]) 

IStar[t]  (A21IStar+  (kct?*  IBr[t] )  +  (kqS*  Iod2[t] )  +  (kg9*Br2[t] ) ) 

+  (kel*Br[t]  *IBr[t])  - 

Iod[t]  ((ke3*Br2[t])  +  (ke4*IBr[t])  +  (kr4*BrStar[t]  *IBr[t]) 

+  (kr3*Br[t]  *IBr[t])  +  (kr7*IStar[t]  *IBr[t])  +  (2kr6*Iod[t]  *lBr[t])), 
lod[0]  0, 

BrStar' [t]  ==  <^ZBr*SCn*Puiqpl[IBr[t]  ,  Br2[t],  Iod2[t]]  + 

0Br2*SCn*Punc>2[IBr[t],  Br2[t],  Iod2[t]] 

-  (BrStar [t]  */3)  -  case  (Lg’^/LCn)  ANPhotoii[t] 

-  BrStar  [t]  (r  +  (kr2  *  Br [t]  *  IBr [t] )  +  (kr4  *  BrStar[t]  *  IBr [t] ) )  , 

BrStar [0]  ss  0, 

Br'[t]  ==  (l-(^IBr)  *Sc„*Pmt|pl[IBr[t],  Br2[t],  Iod2[t]]  + 

(2-<^Br2)  *SCs*Puinp2[IBr[t],  Br2[t],  Iod2[t]] 

(Br[t]  */3)  +case  ANPhoton[t]  +  (r*BrStar[t] )  +  (ke3*Iod[t]  *Br2[t]) 

+  (ke4  *  Iod[t]  *  IBr[t] )  - 

Br[t]  ((k6l*IBr[t])  +  (ke2  *  Ioa2  [t] )  +  (kr2*  BrStar [t]  *IBr[t]) 

+  (2krl*Br[t]  *IBr[t])  +  (kr3*Iod[t]  *IBr[t])  +  (krS *  IStar[t]  *IBr[t])), 
Br[0]  ss  0, 

Ioa2' [t]  == 

-SCn*Pim|p3[IBr[t],  Br2[t],  Iod2[t]]  -  (Iod2[t]  *i3)  +  ((0.04(^*/3)  /1.08) 
(ke4*Iod[t]  *IBr[t])  -t-  (kr7*IStar[t]  *Iod[t]  *IBr[t]) 

+  (kr6*Iod[t]  *2*IBr[t])  -  (Iod2[t]  *ke2*Br[t]), 

Iod2[0]  0.04  IBrO, 

Br2'[t]  ==  -SCn*PuiB|p2[IBr[t] ,  Br2[t],  Ioa2[t]]  -  (Br2[t]  *j8) 

+  ((0.04(f^*/3)  /1.08)  +Br[t]  ((kel*IBr[t])  +  (kr2* BrStar [t]  *IBr[t]) 

+  (krl*Br[t]  *IBr[t]))  -  (ke3*Icxl[t]  *Br2[t]), 

Br2[0]  ==0.04  IBrO, 

IStar'[t]  ==  i^Iod2*Sc„*Puinp3[IBr[t],  Br2[t],  Iod2[t]]  - 
(IStar[t]  *  (/3  +  A21IStar) )  -  IStar  [t]  ( (kq7  *  IBr  [t] ) 

+  (kq8  *  Iod2  [t] )  + 

(k<i9  *  Br2  [t] )  +  (kr7  *  Iod[t]  *  IBr[t] )  +  (krS  *  Br[t]  *  IBr[t] ) ) , 

IStar[0]  ==  0, 

Photon'  [t]  as 
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(AspBrStar[t]  +case  (Lgn/LCn)  (AN-ANth)  PhDton[t]),  Photon[0]  ==  0}, 
{IBr[t],  Iod[t],  BrStar[t], 

Br[t],  Iod2[t],  Br2[t],  IStar[t]  /  Photon[t]},  {t,  0,  tmax}, 

MaxSteps  ->  Infinity] ; 


PhotonData^  =  Evaliiate[Photon[t]  /  .  Iiasern]  ;  PhotonData^  =  Extract  [PhotonDatan/  1]  ; 
IBrDatan  =  Bvaluate[IBr[t]  /  •  Lasern]  ;  IBrDatan  =  Extract  [IBrDatan,  1]  ; 

BrStarDatan  =  Evalxiate[BrStar[t]  /  .  Lasern]  ;  BrStarDatan  =  Extract  [BrStarDatain,  1]  ; 
BrDatan  =  Evaluate [Br[t]  /  •  Lasern]  ;  BrDatan  =  Extract  [BrDatan#  1]  ; 

ZodDatan  =  Evaluate[Iod[t]  /  •  Lasern]  ;  lodDatan  =  Extract  [lodDatan,  1]  ; 

Br2Datan  =  Eval\iate[Br2  [t]  /  •  Lasern] ;  Br2Datan  =  Extract [Br2Dat an/  1] ; 

Iod2Datan  =  Evaluate [Iod2[t]  / .  Lasern]  ;  Iod2Datan  =  Extract  [Iod2Datan/  1]  ; 
IStarDatan  =  Evaluate [IStar[t]  /  •  Lasern]  ;  IStarDatan  =  Extract  [IStarDatan#  1]  ; 
yDatan  =  (BrStarDatan  -  (1/2)  BrDatan)  <7Se; 

PowerDatan  =  PhotonDatan  *  h  *  vlase  *  c  *  Tcell  { 1  -  Rcoui^)  /  2  ; 


n  +=  1;  If  [n  <=  series.  Goto  [Recycle]  ]  ;  n  =  0; 

Print [ 

"Total  Processing  Time:  ",  N[  (SessionTiine[]  -  StartTixne)  /  60,  3],  "  minutes"]; 
Label  [EndLong]  ;  Play [  Sin[700  t  +  25 1  Sin[350  t]  ]  ,  {t,  0,  5}] 

Total  Processing  Time:  115.  minutes 

-  Sound  - 


Hyperlink  To: 
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■  Kinetic  Package  #3  (Rapid  Processing  Model  C) 

Using  Integrated  Absorption  Cross  Sections;  Scaling  Factor  for  Solar  Attenuation 

If  [  ( (UserTag  ==  1)  &&  (a3  1=3)),  Goto[EndShort]  ]  ; 

If  [UserTag  ==  1,  Null,  txnax  =  1*0  10^-2]  ;  StartTlme  =  SessioiiTiine[]  ; 
Cle£u:All[r,  IBr,  lod,  BrStar,  Br,  AN,  y,  Iod2,  Br2, 

ISt€u:,  Photon,  PowerOut,  LLaser,  FinalList,  t] ; 


If  [Ntag  ==  1,  n  =  1,  n  =  0] ; 

Label  [Recycle] ; 

Lasern  = . ; 

iBrDatan  =  • ;  lodDatan  • ;  BrStarDatan  =  • ;  BrDatan  =  • ;  lod2Datan  =  • ; 

Br2Datan  =  • ;  IStarDatan  =  • ;  YBata^  =  • ;  PhotonDatan  =  • ;  PowerDatan  =  • ; 

LCn  =  N[p  *  Lg^,  4]  ;  ^  =  (100  vFloWn)  /  Lg„; 

AvD=  200  vlaseV  ( (2  kTn  Log[2] )  /  (MassBr  c  ^2) )  ;  gd  =  2/AvdV  (Log[2]  /tt); 
Aconc  =  10  ^  (-4)  SCn  Atuben  Lg^  SCn; 

rrt  =  (2  LCn)  /  c;  rp  =  rrt  /  (1  -  (Tcell^4  Rmir  Rcoup^) )  ; 

PuirpPwr^  =  (SolarIncW *  SCn  *  Lg^  *  Atuben  /  ;  IBrO  =  9 . 659  *10^18  (Pcelln  /  Tn)  ; 

ase  =10^4  (A21  Alase^2)  /  (Stt)  gd;  Asp  =  (c  ase)  /  (Lg^  Atuben)  ; 

Yth  =1/(2  Lg^)  Iiog[l  /  (Tcell ^ 4  Rcoupn  Rmir)  ]  ;  ANth  =  yth/  ase;  Br20  =  0.04  IBrO; 
120  =  0.04  IBrO; 


p  =  0;  If  [n  ==  1,  vnille[  (p  =  p  +  1)  <=  21, 

PList[[p,  3]]  =  {AvD,  gd,  Aconc,  rrt,  rp,  IBrO,  ase.  Asp,  yth,  ANth,  PmipPwr, 
Rp[IBr0,  Br20,  120], 

0IBre[IBrO,  Br20,  120],  Rp2[IBrO,  Br20,  120],  0Br2e[IBrO,  Br20,  120], 
RpTot[IBr0,  Br20,  120],  <#iTot[IBr0,  Br20,  120],  BrStarTot [IBrO,  Br20,  120], 
(l-<^Tot[IBr0,  Br20,  120])  I^>Tot[IBr0,  Br20,  120], 

(100  Rp2 [IBrO,  Br20,  120])  /RpTot[IBr0,  Br20,  120], 

(100  Rp3  [IBrO,  Br20,  120])  /RpTot[IBr0,  Br20,  120]  }  [  [p]  ]  ]  ]  ; 

Photo  =  PolyncsnialFit  [Table  [  {Q, 

NIntegrate[A  (1  -  EKp[-aabs[A,  Tn]  Q  ] )  ,  {A,  AcutLOb,  AcutHi^}]  / 

NIntegrate[A,  {A,  AcutLpn,  AcutHin}]},  {Q,  10^17,  10^19,  lO'^lS}],  10]; 

Pun5)[IBr_]  :=  If  [(EPa*  IBr  >=  10^19),  1, 

Photo[Dp„  *  IBr]  ]  *  (SCn  /  DPn)  NIntegrate[F[A] ,  {A,  AcutLo^,  AcutHin}  ]  ; 

ibrint  =  NIntegrate[F[A]  *  aabs[A,  Tn]  ,  {A,  AcutLpn,  AcutHin}]  ; 
br2Int  =  NIntegrate[F[A]  *aabs2[A,  Tn]  ,  {A,  AcutLpn,  AcutHin}]  ; 
i2Int  =  NIntegrate[F[A]  *  aabs3[A,  Tn] ,  {A,  AcutLo^,  AcutHin}]  ; 

Dencm  :=  IBr[t]  *  ibrint  +  Br2  [t]  *br2Int  +  Iod2  [t]  *i2Int; 

r  :=A21+  (kql*IBr[t])  +  (kq2*Iod[t])  +  (kq3 *  Iod2 [t] )  + 

(kci4*Br2[t])  +  (kq5  *  BrStar  [t])  +  (kq6*Br[t]); 
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:=  BrStar[t]  -  (1/2)  Br[t] ; 

i/r  ;=  IBr[t]  +Br2[t]  +Iod2[t]  +  (Iod[t]  +BrStar[t]  +Br[t])  /2; 


Lasers  :  =  NDSolve  [  { 

IBr'[t]  ==  -  (IBr[t]  *ibrInt/Denoni)  *Puirp[IBr[t]]  -  (IBr[t]  *j3)  +  (((Jr*/3)  /1. 08) 
+  (ke2*Br[t]  *Iod2[t])  + 

(ke3*Iod[t]  *Br2[t])  -  IBr[t]  ((kel*Br[t])  +  (ke4* Iod[t] ) ) 

+  IBr[t] 

((kr4*BrStar[t]  *Iod[t])  +  (kr3*Br[t]  *Iod[t])  +  (krS* IStar[t]  *Br[t])), 
IBr[0]  ss  IBrO, 

lod' [t]  == 

(IBr[t]  *ibrlnt+  (2  -  (^Iod2)  Iod2[t]  i2Int)  /  Denom*  Puiti)[IBr[t]  ]  -  (Iod[t]  */3) 

+  (ke2*Br[t]  *Iod2[t]) 

IStar[t]  (A21IStar+  (k<i7*IBr[t])  +  (kq8*  Iod2[t] )  +  (kq9*Br2[t])) 

+  (kel*Br[t]  *IBr[t])  - 

Iod[t]  ((ke3*Br2[t])  +  (ke4*IBr[t])  +  (kr4*BrStar[t]  *IBr[t]) 

+  (kr3*Br[t]  *IBr[t])  +  (kr7* lStar[t]  *IBr[t])  +  (2kr6*Iod[t]  *IBr[t])), 
lod[0]  ==  0, 

BrStar'  [t]  =  = 

( (^IBr*  ibrint*  ZBr[t]  -f  <^Br2*br2Int*Br2[t])  /DenGiin*Puiic>[IBr[t]])  - 
(BrStar[t]  */3) 

-  c  ase  (Lg^  /  LCn)  ^  Photon[t]  - 

BrStar[t]  (r+  (kr2*Br[t]  *IBr[t])  +  (kr4* BrStar [t]  *IBr[t])), 

BrStar  [0]  ==  0, 


Br' [t]  == 

( ( (1  -  <*IBr)  *  IBr[t]  ibrint  +  (2  -  .^Br2)  *  Br2  [t]  br2Iiit)  /  Denom*  Punp[IBrtt]  ] )  - 
(Br[t]  */3)  tCCTSe  (Lga/LCn)  ANPhoton[t]  +  (r  *  BrStar [t] )  + 

(ke3*Iod[t]  *Br2[t])  +  (ke4*Iod[t]  *IBr[t]) 

-Br[t]  ((kel*lBr[t])  +  (ke2 * lod2 [t] )  +  (kr2* BrStar [t]  *lBr[t]) 

+  (2krl*Br[t]  *IBr[t])  +  (kr3*Iod[t]  *IBr[t])  +  (krS* IStar[t]  *IBr[t])), 
Br[0]  =*  0, 

Iod2' [t]  *= 

-  ((i2Int*Iod2[t])  /  Denom*  Piimp[IBr[t]  ] )  -  (Ioa2[t]  *S)  +  ((0.04(fr*i8)  /1. 08) 

+  (ke4*Ioa[t]  *IBr[t])  +  (kr7  *  IStar[t]  *Iod[t]  *IBr[t]) 

+  (kr6*Iod[t]  *2*IBr[t])  -  (Iod2[t]  *ke2*Br[t]), 

Iod2[0]  0.04  IBrO, 

Br2' [t]  == 

-  ((br2Int*Br2[t])  /  Denom* Piiirip[IBr[t]  ] )  -  (Br2[t]  */3)  +  ((0.04^^*/3)  /1.08) 

+  Br[t]  ((kel*IBr[t])  +  (kr2* BrStar [t]  *IBr[t])  +  (krl*Br[t]  *IBr[t]))  - 

(ke3  *  Iod[t]  *  Br2  [t] ) , 

Br2[0]  ==  0.04  IBrO, 

IStar' [t]  == 

(  (i2Int*Iod2[t])  / Denom* *Iod2*Punp[IBr[t]])  -  (IStar[t]  *  (/3  +  A211Star) ) 
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-IStar[t]  ((kq7*IBr[t])  +  (kq8  *  Iod2  [t] )  +  (kq9*Br2[t]) 
+  (kr7*Iod[t]  ★IBr[t])  +  (kr5*Br[t]  *IBr[t])), 
IStar[0]  ==  0, 


Photon'  [t]  == 

(AspBrStar[t]  +  c  ase  (Lga/LCn)  (AN-ANth)  Photon [ t] )  ,  Photon[0]  ==  0}, 
{IBr[t]^  Iod[t],  BrStar[t], 

Br[t],  Iod2[t],  Br2[t]^  IStar[t] ,  Photon[t]},  {t,  0^  tmax}, 
WorkingPrecision->  8,  MaxSteps  ->  Infinity]  ; 

PhotonDatan  =  Evaluate [Photon[t]  /  .  Lasern]  ;  PhotonDatSn  =:  Extract  [PhotonDatan,  1] 
IBrDatan  =  Evaluate! IBr[t]  /  •  Lasern]  ;  IBrDatan  =  Extract  [IBrDatan/  1] ; 

BrStarDatan  =  Evaluate! BrStar[t]  /  .  Lasern] ;  BrStarDatan  =  Extract  !Br St arDat an/  1] 
BrDatan  =  Eval\iate!Br  !t]  / .  Lasern] ;  BrDatan  =  Extract  !BrDatan/  1] ; 
lodDatan  =  Evaluate! Iod!t]  /  *  Lasern] ;  lodDatan  =  Extract  !IodDatan/  1] ; 

Br2Dataa  =  Evaluate!Br2  !t]  /•  Lasern]  i  Br2Datan  =  Extract  !Br2Dat an#  1]  ; 

Iod2Datan  =  Evaluate !Iod2  !t]  /.  Lasern] ;  Iod2Datan  =  Extract  !Iod2Datan/  1] ; 
IStarDatan  =  Evaluate !IStar!t]  /  .  Lasern]  ;  IStarDatan  =  Extract  [IStarDatan/  1]  ; 
yDatan  =  (BrStarDatan  -  (1/2)  BrDatan)  crse; 

PowerDatan  =  PhotonDatan  * h*  vlase*  c *  Tcell  (1  -  Rcoup;^)  /  2  ; 

n  +=  1;  I£[n  <=  series.  Goto  (Recycle]  ]  ;  n  =  0; 

Label  (EndShort] ; 

Print  ("Total  Processing  Tiifie:  ",  N!  (SessionTiroe!]  -  StartTiine)  /  60,  3], 

"  minutes"];  Play!  Sin!700t  +  25  t  Sin!350  t]  ] ,  {t,  0,  5}] 


Total  Processing  Time  :  26.1  minutes 


■  Generate  Graphical  Plots  of  Laser  System  Parameters 

t  = . ;  tplot  =  tmax  /  5;  FixialLlst  =  {  }  ; 

If  [Ntag  ==  1,  Goto  [Family]  ]  ; 

IBrLlst  =  {IBrDatao}; 

BrStarList  =  {BrStarDatao)  ;  BrList  =  {BrDatao};  lodList  =  {lodDatao}; 

Iod2List  =  {Iod2Datao};  Br2List  =  {Br2Datao};  IStarList  =  {IStarDatao}; 
PhotonList  =  {PhotonDatao};  yList  =  {yDatao};  PowerList  =  {PowerDatao}; 

Goto [Construct Stream] ; 

Label  [Family] ; 

IBrList  =  BrStarList  =  BrList  =  lodList  =  Iod2List  = 

Br2List  =  IStarList  =  PhotonList  =  yList  =  PowerList  =  {  }  ; 

z  =  0;  While[  (z  =  z  +  1)  <=  series, 

{AppendTo[  IBrList,  IBrDataz],  AppendTo  [BrStarList,  BrStarDataz  ] ,  i^c)pendTo 
[BrList,  BrData^],  AppendTo  [lodList,  lodData,] ,  AppendTo  [Iod2List,  Iod2Dataz], 
AppendTo[Br2List,  Br2Dataz],  AppendTo  [IStarList,  IStarData^]  , 

AppendTo  [PhotonList,  PhotonDataz] ,  AppendTo  [yList,  yDataz], 

AppendTo  [PowerList,  PowerDatao]  }]  ;  z  +=  1; 

IBrList  =  Flatten  [IBrList]  ; 

BrStarList  =  Flatten  [BrStarList]  ;  BrList  =  Flatten  [BrList]  ; 
lodList  =  Flatten  [lodList]  ; 

Iod2List  =  Flatten [Iod2List]  ;  Br2List  =  Flatten [Br2List]  ; 

IStarList  =  Flatten[ IStarList] ; 

PhotonList  =  Flatten  [PhotonList]  ;  yList  =  Flatten [yList]  ; 

PowerList  =  Flatten [PowerList] ; 

Label  [Construct Stream] ; 

LLaser=  {IBrList,  "Population  Evolution  of  [IBr]",  "[IBr]  \! \(  (cm\^-3\) )  ", 
PhotonList,  "Photon  Buildup  with  Time",  "Photons/\!  \(  (cm\'^3\) )  ",  BrStarList, 
"Population  Evolution  of  [Br(Pi/2)  ]  ", 

"\I\[\!\(Br\^*\)]  \!\((cm\A-3\))",  BrList, 

"Population  Evolution  of  [Br  (P3/2)  ]  ",  "  [Br]  \ !  \  ( (cm\^-3\) )  ",  IStarList, 
"Population  Evolution  of  [I(Pi/2)]"r  "  [\! \(I\**\)  ]  \!  \  ( (cm\^-3\) )  ",  lodList, 

"Population  Evolution  of  [I(P3/2)]"#  "[I]  \!  \  ( (can\^-3\) )  ",  Br2List, 

"Population  Evolution  of  [Br2]",  "[Br2]  \! \(  (cm\*-3\) )  ",  Iod2List, 

"Population  Evolution  of  [I2]  ",  "  [I2]  \I  \  ( (cm\^-3\) )  ",  yList, 

"Evolution  of  y  with  Time", 

"Y  \!  \  ( (cm\^-l\) )  ",  PowerList,  "Laser  Output  Power", 

"Power  (W/\l\  (cm\^2\) )  " }  ; 

If  [Ntag  ==  1,  Goto[FamilyPlot]  ]  ; 

X  =  -1;  While[  (x  =  x  +  1)  <=  9, 

AppendTo [FinalList,  {Plot [LLaser[  [  (3  x)  +  1]  ] ,  {t,  0,  tplot},  PlotLabel  -> 
StyleForm[LLaser[  [  (3  x)  +  2]  ]  ,  FontWeight  ->  "Bold",  FontSize  ->  10] , 
PlotRange  ->  All,  Frame  ->  True,  FrameLabel  ->  {"  t  (s)  ",  LLaser[  [  (3x)  +  3]  ]  }, 
DisplayFunction  ->  Identity,  imageSize  ->  400]  }]  ]  ; 
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Goto [ EndRout ine] 


Label  [FamilyPlot] ; 

x=  -1;  While[(x  =  x+  1)  <=  9, 

AppendTo[FinalList,  {Plot  [Evaluate [LLaser[  [  (3  x)  +1]]]#  {t,  0^  tplot}, 
PlotLabel  -> 

StyleForia[LIiaser[  [  (3  x)  +  2]  ]  ^  FontWeight  ->  "Bold",  FontSize  ->  10] , 
PlotStyle->  {{GrayIjevel[0]  }/  {Hue[0.07],  Dashing[ {  .01} ]  } , 

{Hue[0.6],  Dashing[{.03,  .01}]}, 

{Hue[0.32],  Dashing[{.02}]},  {Graylievel[0.7]  } , 

{Hue[0.55],  Dashing[{.04,  .01}]},  {Hue[0.78],  Dashing [{0.02,  0.01}]}, 

{Hue [0.12],  Dashing [{.01,  .02}]}}, 

PlotLegend  ->  {N[Seti] ,  N[  Sets]  /  ^[Sets]  ,  N[Set4]  ,  N[Set5] ,  N[Set6]  }, 
LegendSize ->  {  .4,  .4}, 

LegendBackground  ->  Graylievel[0.95] ,  LegendPosition ->  {1,  0}, 
LegendShadovr->  {0.015,  -0.015}, 

LegendLabel  ->  Sty leFomi[  Parameter,  FontSlant  -> 

"Italic"], 

PlotRange ->  All,  Frame ->  True,  FrameLabel ->  {"  t  (s)  ",  Iiliaser[  [  (3  x)  +  3]  ]  }, 
DisplayFunction  ->  Identity]  }  ]  ]  ; 

Label  [EndRout ine] ; 

q  =  0;  vniile[  (q  =  q  +  1)  <=  10,  Show[FinalList[  [q]  ]  , 

DisplayFunction ->  $DisplayFunct ion,  ImageSize ->  {578,  334}]]; 

l£[series  ==  0,  d  =  0,  d  =  1]  ; 

Print ["\n\nQperating  Temperature:  ",  T^,  "  K\nCell  Pressure:  ",  Pcell^, 

"  Torr\nPuxiping  Path  Length:  ",  Dp^,  "  cm\nIiength/Gain  Cell:  ",  Lg^, 

"  cmXnCavity  Length:  ",  Lca,  "  cmXnSolar  Concentration:  ",  SCd, 

"XnOutput  Coupler  Reflectivity:  ",  Rcoup^,  "XnRiTiTs:  ",  N[Rmir*Tcell''2] , 
"XnArea/  Laser  Tube:  ",  Atube^, 

"  X!X(cmX^2X)XnWavelength  range:  ",  N[10^9  AcutLoa]  ,  "  -  ",  N[10^9  AcutHia] , 
"  nmXnFlow  Rate:  ",  vFlowa,  "  m/sXn"]; 

TableFom[Delete[PList,  {{12},  {13},  {14},  {15},  {16}}],  TableSpacing ->  {1,  2}] 

Print [StyleForm["X  Total  Output  Energy  (Plotted  Duration):", 

FontSlant  ->  "Italic",  FontSize  ->  10]  ]  ; 

If  [ series  =  =  0 ,  { Print [ "  ",  NIntegrate [ PowerDatao , 

{t,  0,  tplot},  AccuracyGoal ->  3]  ,  "  Joules/X!  X  (cmX^2X)  "]  }  , 

{w  =  0;  vniile[  (w  =  w+  1)  <=  series, 

EnergyOut„  =  NIntegrate [PowerData^,  {tt,  10^  (-8)  ,  tplot},  MaxRecursion  ->  20]  ]  ; 
w  =  0;  t  =  tplot; 

Print [TableFonn[Table[{SequenceFona[Param0ter,  ":  ",  N[Setw,  4]], 
SequenceForm[N[EnergyOut^,  4],  "  J/X!  X(cmX^2X)  "] , 

SequenceFom[N[PowerDataw,  4] , 

"  W/XI  X(cmX^2X)  "] ,  SequenceForm[pwr„  =  N[Atube„PowerDataw/2,  4],  "  W"] , 
SequenceForm["r7T="/  =  N[100 *pwr^ / PumpPwr^,  4],  "  %"]},  {w,  1,  series}], 
TableSpacing ->  {1,  1}]]}]; 
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Print ["\xiPcq7ulat ion  Distribution  at  t  =  "/  N[tplot] ,  "  s:”];  t  z  tplot; 

If  [series  >  0,  {Print["  (For  ",  Parameter,  "  =  N[Seti,  4] ,  ")  "] ,  q  =  1} ,  q  =  0] ; 

DistList  =  {{"[IBr]  :  ",  IBrData,,  "  \l\(cm\^-3\)  "}, 

{"[Photons]  :  ",  PhotonData,,  "  \!\(cm\^-3\) "}, 

{"[Br(Pi/2)]  :  ",  BrStarData,,  "  \I\(cm\*-3\) "}, 

{"[Br(P3/2)]  :  ",  BrData,,  "  \!\(cm\'^-3\)  "}, 

{"[I(Pi/2)]  :  "»  IStarData,,  "  \l\(cm\*-3\) "}, 

{"[I(P3/2)]  :  ”,  lodData,,  "  \!\(cmi\*-3\) "}, 

{"[Br2]  t  ",  Br2Data„  "  \! \(om\*-3\) 

{"[Ij]  :  ",  Iod2Data„  "  \! \(can\*-3\) "}, 

{"Powerout  s  ",  PowerData,,  "  \!\(W/cmi\*2\) "}, 

{"",  pwTq  =  N[Atube,*PowerDataq  /  2] ,  "  W"}, 

{"rjT  (CW)",  n,  =N[100*pwr, /PumpPwr,],  "  %"}, 

{"\!\([IBr]\/[IBr]o\)  :  ",  IBrData,  /  ( (9.659*  10*  18)  /  T,  Pcell,)  }  }  ; 

Print [TableForm[DistList,  TableSpacing ->  {1,  1}]];  ts.; 
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[Br]  (cm"  )  \!\[Br*]  (cm‘ 


4  lO'^ 

3  10'5 

2  lO'^ 

1  10'^ 

0 


3  10'3 

2.5  10'® 

2  10'^ 

1.5  lO'^ 
1  10’’ 
5  lO'^ 

0 


Power  (W/cm^) 


I 


0.00025 

0.0002 

0.00015 

0.0001 

0.00005 

0 

4000 

3000 

2000 

1000 

0 


operating  Temperature:  298.2  K 
Cell  Pressure:  25  Torr 
P\amping  Path  Length:  1.5  cm 
Length/ Gain  Cell:  300  cm 
Cavity  Length:  330.  cm 
Solar  Concentration:  20000 
Output  Coupler  Reflectivity:  0.89 
R1T1T2:  0.97814 
Area/  Laser  Tube:  0.785  cm^ 
Wavelength  range:  457.7  -  545.3  nm 
Flow  Rate:  0  m/s 


Doppler-Broadened  Linewidth 
Peak  Transition  Line shape 
Exposed  Area  of  Solar  Concentrator 
Photon  Round  Trip 
Photon  Lifetime 
Initial  Concentration/  IBr 
Stim  Emission  Cross-Section 
Spontaneous  Emission  Rate 
Threshold  Gain  Coefficient 
Threshold  Population  Inversion 

Initial  Photodissociation  Rate  (Total) 
Br*  Quantum  Yield  (Combined) 

Initial  Br(Pi/2)  Pump  Rate  (Total) 
Initial  Br(p3/2)  Pump  Rate  (Total) 
Initial  Br2  Photolysis  Contribution 
Initial  I2  Photolysis  Contribution 


AVd: 

1.52374x10® 

Hz 

g(vo)  : 

6.16536x10'® 

s 

Ac: 

9.42x10® 

m2 

Trt: 

2.2x  10'® 

s 

rp: 

1.49885x10'® 

s 

[IBr]o: 

8.09775x10^® 

cm“^ 

CTst: 

1.13836x10'^® 

cm2 

Asp: 

1.45014x10'® 

S“^ 

Yth: 

0.000264562 

cm"^ 

ANth: 

2.32407x10^® 

cm"^ 

Rp^: 

3.71437x10®° 

cm~^  s~^ 

0T  ' 

0.643373 

Rpgr*  : 

2.3435x10®° 

cm”^  s"^ 

RPer: 

1.32465x10®° 

cm"^  s"^ 

^pBr2  /T  * 

1.08494 

% 

Rpl2  /T  • 

1.92728 

% 
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Total  Output  Energy  {Plotted  Duration)  : 


IBr 

Pressure 

[Torr] : 

25. 

4.558  J/cm2 

2279. 

W/cm^ 

894.4  W 

77t— 0 .209  ? 

5 

IBr 

Pressure 

[Torr]  : 

40. 

5.77  J/CTI? 

2885. 

W/cm^ 

1132.  W 

77t=0 .2646 

% 

IBr 

Pressure 

[Torr] : 

55. 

6.296  J/cm^ 

3148. 

W/cm^ 

1236.  W 

0 .2888 

% 

IBr 

Pressure 

[Torr] : 

70. 

6.442  J/cm^ 

3221. 

W/cm^ 

1264.  W 

r7T=0.2954 

% 

IBr 

Pressure 

[Torr] : 

85. 

6.377  J/cm2 

3189. 

W/cm^ 

1251.  W 

?7t= 0 .2925 

% 

IBr 

Pressure 

[Torr] : 

100. 

6.194  J/cm^ 

3097. 

W/cm^ 

1216.  W 

.2841 

% 

Population  Distribution  at  t  =  0.002  s: 
(For  IBr  Pressure  [Torr]  =25.) 


[IBr]  : 

5.06585x101’’ 

cm"^ 

[Photons]  : 

1.90469x10“ 

cm”^ 

[Br(Pi/2)]  : 

3.92852x10“ 

cm"^ 

[Br(P3/2)]  : 

3.20891x10“ 

cm"^ 

[I(Pl/2)]  : 

7.95823x10“- 

cm"^ 

[I(P3/2)]  : 

1.4583x10“ 

cm”^ 

[Br2]  : 

1.83953x10“ 

cm”^ 

[I2]  : 

1.76694x10“ 

cm“^ 

Powerout  : 

2278.8 

W  /  cm' 

894.429 

W 

7t  (CW) 

0.209034 

% 

flBrl  . 

r  TTjfi  -  • 

0.625588 

If  [series  !=  0,  MultipleListPlot  [Table  [  {Set.,  pwr.},  {s,  1,  series}], 

SyinbolShape  ->  {PlotSyinbol[Box,  {Filled ->  False}]  } ,  Plot  Joined ->  True, 
Frame  ->  True,  FrameLabel  ->  {Parameter,  "Output  Power  [W]  "}]  ] ; 


I£[series  1=  0,  MultipleListPlot [Table [{Sets,  Hs}#  {s,  1,  series}], 

SymbolShape  ->  {PlotSyxribol[  Triangle,  {Filled ->  False}  ]} ,  Plot  Joined ->  True, 
Frame  ->  True,  FrameLabel  ->  {Parameter,  "Ht  [%]"}]]; 


30  40  50  60  70  80  90  100 

IBr  Pressure  [Torr] 


qq  =  Interpolation[Table[{Set.,  77,},  {s,  1,  series}]];  Plot [qq*  [Optimal]  , 
{Optimal,  Seti,  Set.eri*.}];  FindRoot[0  ==  qq'  [Optimal] ,  {Optimal,  Seta}] 
Print["Max  Efficiency:  ”,  qq[%[[l,  2]]]] 


{Optimal-^  71.8411} 
Max  Efficiency;  0.29552 
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■  Efficiency  Analysis 

t  =  tplot; 

If[Ntag==  1,  {a  =  4/  q  =  4,  IBrOq  =  ((9.659*10^18)  /  T,  Pcell^)  {a  =  0,  q=  0}]; 

Total  Efficiency  {photonic,  energetic}: 

T]t=  { ( (Atubea  PowerDatae  /  2)  /  (SolarIncP*  SCa  *h*vlase*At\2bea  *Iiga /!%>«))  # 
(Atubea  PowerDatda)  /  (2  *  PunpPwr^)  } 

{0.00869123,  0.0029545} 


Spectral  Efficiency  (photonic,  energetic): 

77s  =  {NIntegrate[  F[A] ,  {A/  AcutLOa/  AcutHia}]  /  Nlntegrate  [  F[A] , 

{A,  10^  (-7),  10^  (-2)}],  NIntegrate[(10-^hc)  /AF[A]^  {A,  AcutLo^, 
AcutHia}] /Nlntegrate [(he)  10'^/AF[A]^  {A,  10^  (-7),  10^  (-2)}]} 

(0.0620002,  0.114055} 


Absorptive  Efficiency  (photonic,  energetic}: 


rja=  { (Pp[IBrDataa,  Br2Dataa#  Iod2Dataa]  *  Bp2[IBrDataa,  Br2Dataa,  lcxl2Dataa])  / 
( (SCa  /  Dpa)  Nlntegrate [F [A] ,  {A,  AcutLOa^  AcutHia}] )  ^ 

( (Sc.  /  Ep.)  Nlntegrate[  ( F  W 


(IBrDataa  *  cabs  [A,  Ta]  +  Br2Dataa  *aabs2[A,  Ta] )  /  (IBrDataa  *  aabs[A,  Ta] 
+  Br2Dataa  *  aabs2  [A,  Ta]  +  Iod2Dataa  *  aabs3  [A,  Ta] )  * 

(1-E3q>[- (IBrDataa  *aabs[ A,  ^a] 

+  Br2Dataa  *  aabs2  [A,  Ta]  *  Iod2Dataa  *  aabs3  [A,  Ta] )  I3Pa] )  # 


{A,  AcutLOa,  AcutHia} 
he 


I)/ 


^(Sc. /Ep.)  NIntegrate[|-^|^^j  F[A],  {A,  AcutLow,  AcutHi.}]j} 


{0.821978,  0.823118} 
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Kinetic  Efficiency! photonic,  energetic): 


r7k 


=(( 


c  ase  (Lg^  /  LCn) 


^BrStarDataa  -  BrDataaj  PhotonDataa  /  (Bp[IBrDataa/  Br2Dataa/  Iod2Dataa]  + 


Rp2[IBrDataa,  Br2Dataa,  Iod2Dataa]) 


)- 


c  ase  Lg^ 


Lc. 


h  vlase  ^BrStarDatSa  -  —  BrDataaj  PhotonDataa 


)/ 


(Sc. 


/  Qp.)  NIntegrate 


((— ) 

4  100  A  J 


F[A] 


(IBrDataa  *aabs[A,  T*]  +  Br2Dataa  *aabs2[A^  T*] )  /  (IBrDataa  *  aabs  [A,  Ta] 
+  Br2Dataa  *  aabs2  [A,  Ta]  +  Iod2Dataa  *  aabs3  [A,  Ta] )  ★ 

(1  -  Exp [- (IBrDataa  *  aabs[ A,  ^a] 

+  Br2Dataa  *  aabs2  [A,  Ta]  +  Iod2Dataa  *  aabs3  [A,  Ta] )  Dp^] )  , 


{A,  AcutLo,,  AcutHi.}]j}; 


Print  [  "KINETIC  EFFICIENCYXn  Quantum:  " ,  na  =  { 1/  N  [  495  /  2714  ]  }  ]  ; 
Print["  Other:  ",  {N[f7k[  [1]  ]  ,  4]  ,  N[i7fc[  [2]  ]  /  (N[495/ 2714] )  ,  4]  }] 

Print  [  ”  Total :  " ,  N[ 77k,  4 ]  ] 

KINETIC  EFFICIENCY 

Quantum:  {1,  0.182388} 

Other:  {0.452,  0.4573} 

Total:  {0.452,  0.08341} 


Cavity  Efficiency! photonic,  energetic): 

PowerDataa 


rye  : 


2  h  vlase  Lg, 

(PowerDataa  \  /  { 

2Lga  i/  i 


:)/( 


c  ase  (Lg^  /  LCn)  ^BrStarDatSa  -  ^  B^rDatSaj  PhotonDatSaj  # 


2Lg, 

{0.377323,  0.377323} 


c  ase  h  vlase  (Lg^  /  LCn)  ^BrStarDatSa  -  —  BrDataa  |  PhotonDataa 


)> 


rye*  7?k*  77a*  77s 

{0.00869123,  0.0029545} 


Tyt 

{0.00869123,  0.0029545} 


142 


■  Sensitivity  Analysis  of  Kinetic  Processes  Associated  with  IBr  Photolysis 
and  Br  (^Pi/2)->  Br  (^Ps/a)  Lasing 

quench  :  =  {  (kql  *  BrStarData^,  *  IBrData^,) ,  (kq2  *  BrStarData<2  *  lodDataq) , 

(kq3  *  BrStarDataiq  *  Iod2Dataq)  ^  (kq4  *  BrStarDataiq  *  Br2DataQ) ,  (kqS  *  BrStarDataq^ ) , 
(kq6  *  BrStarDataq  *  BrDataq)  ,  (A21  *  BrStarDateiq)  }  ; 

Rq7  :  =  kq7  *  IStarData<,  *  IBrDataq  ; 

Kq8  :  =  kq8  *  IStarDataq  *  Ic>d2Data<2; 

Kq9  :  =  kq9  *  IStarDataq  *  Br2Dataq  ; 

KqlO  :=  A21IStar*  IStarDataq; 

ijfilr  :=  (IBrDataq  +  Br2Dataq  +  Iod2Dataq  +  (lodDataq  +  BrStarDataq  +  BrDataq)  /  2)  ; 

PuxnpA  :=  Rpa[ IBrDataq,  Br2Dataq,  Iod2Dataq]  ; 

PurapB  :=  Bp2a[ IBrDataq,  Br2Dataq,  Iod2Dataq]  ; 

PunqpC  :=  Bp3a[ IBrDataq,  Br2Dataq,  Iod2Dataq]  ; 

PuirqpT  :=  BpTot  [IBrDataq,  Br2Dataq,  Iod2Dataq]  ; 
rat lol  =  Rp2[ IBrDataq,  Br2Dataq,  Iod2Dataq]  /PuirpT; 
ratio2  =  Rp3 [IBrDataq,  Br2Dataq,  Iod2Dataq]  /PunpT; 

PuxnpStar  :  =  PunpA  +  PunoipB; 

PuinipGround  :  = 

Rpb[IBrDataq,  Br2Dataq,  Iod2Dataq]  +  Rp2b[ IBrDataq,  Br2Dataq,  Iod2Dataq]  ; 

Kel  :  =  kel  ★  IBrDataq  *  BrDataq  ; 

K^2  :  =  ke2  *  BrDataq  *  Iod2Dataq ; 

Ke3  :  =  ke3  *  lodDataq  *  Br2Dataq; 

Ke4  :  =  ke4  *  IBrDataq  *  lodDataq ; 

Kr  1  :  =  kr  1  *  IBrDataq  *  BrDataq^ ; 

Kr2  :  =  kr2  *  IBrDataq  ★  BrStarDataq  *  BrDataq ; 

Kr3  :  =  kr3  *  IBrDataq  *  BrDataq  *  lodDataq  ; 

Kr4  :  =  kr4  *  IBrDataq  *  BrStarDataq  *  lodDataq ; 

Kr5  :  =  krS  *  IBrDataq  *  IStarDataq  *  BrDataq ; 

Kr6  :  =  kr6  *  lodDataq^  *  IBrDataq; 

Kr7  :  =  kr7  *  IStarDataq  *  IBrDataq  *  lodDataq  ; 

caseLg^  /  1  ^ 

SturiEm  :=  - -  ^BrStarDataq  -  —  BrDataq j  PhotonI>ataq; 

FlowOutIBr  :  =  /8  *  IBrDataq ; 

FlowOutBr  :  iS  *  BrDataq; 

FlowOutBrStar  ;  =  i3  *  BrStarDataq ; 

FlowOutlod  :  =  /3  *  lodDataq; 

FlowOutlStar  :  s  jS  *  IStarDataq; 

FlowOutIod2  :  =  /3  *  Iod2Dataq ; 

FlowOutBr2  :  =  /3  *  Br2Dataq; 

FlovrInIBr  :=:jS*^^/1.08; 

FlowInBr2  :=  0.04 ^8 * /  1.08; 

FlowInIod2  :=  0.04 ^3 * /  1.08; 

FlowInTot  :=  FlovrInIBr  +  Flow’InBr2  +  FlowInIod2; 

t  =  tplot;  l£[series>0.  Print  ["(For  ",  Parameter,  "  =  ",  Setq,  ")"]]; 

RateTag="  \ !  \  (cm\^-.3\)  \l \(s\^-l\)  ";  PppTag  =  "  \l  \  (cni\^-3\)  "; 
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KIilst=  {{"(Rp'iBr)  "#  +  IBr  -»  I  +  Br*",  PunsiA,  RateTag}, 

{"(BP*Btj)  "»  "hv  +  BTj  ^  Br  +  Br*",  PunqpB,  RateTag}, 

{"(BP'ij)  "»  "hv  +  la  -4  I  +  I*",  PuinpC,  RateTag), 

{"(Riw)",  "hv  +  XT  -4  X  +  Y*,Y",  PumpT,  RateTag), 

{"(RParj/i"'  "Bra  Photolysis  Percentage",  N[100*ratiol,  3] ,  "  percent"), 
{"(BPi2/t)",  "la  Photolysis  Percentage",  N[100*ratio2,  3],  "  percent"), 
{"(I^>Br*)  "»  *Br  -»  X  4  Br*",  PinqpStar,  RateTag), 

{"(BPsr)  ^^Br  -»  X  4  Br",  PuirpGround,  RateTag), 

{"(<3stii«)"»  "hv  4  Br*  -4  2hv  4  Br  ",  StiiKEm,  RateTag), 

{"(Flowr)",  "Total  Molecular  Inflow  ",  FlowInTot,  RateTag), 

{"(Iflom)"#  "Total  [I]  Outflow  ",  FlowOutlod,  RateTag),  {"",  ""}, 

{"(Kgl)",  "Br*  4  IBr  -4  Br  4  IBr  ",  quenchE  [1]  ] ,  RateTag), 

{"(Kq2)",  "Br*  4  I  ^  Br  4  I  ",  q^ench[  [2]  ],  RateTag), 

{"(Kq3)",  "Br*  4  la  -»  Br  4  la  ",  quench[  [3]  ],  RateTag), 

{"(Kq4)",  "Br*  4  Bra  -»  Br  4  Bra  ",  <Iuenoh[  [4]  ],  RateTag), 

{"(KqS)",  "Br*  4  Br*  -4  Br  4  Br*  ",  quench[ [5] ],  RateTag), 

{"(Kq6)",  "Br*  4  Br  ^  Br  4  Br  ",  quench[  [6]  ],  RateTag), 

{"(A2lBr)"/  "  Br*  ^  Br  4  hv  ",  quench[[7]],  RateTag), 

{"(Ktf7)",  "I*  4  IBr  ^  I  4  IBr  ",  Kq7,  RateTag), 

{"(KqS)",  "I*  4  la  -»  I  4  la  ",  Kq8,  RateTag), 

{"(Kq9)",  "I*  4  Bra  -»  I  +  Bra  "/  KqS#  RateTag), 

{"(A21i)",  "  I*  -»  I  4  hv  ",  KqlO,  RateTag), 

{nii^  nnj^  {"(Kel)",  "Bt  4  IBt  ->  I  4  BTa  ",  Kel,  RateTag), 

{"(Ke2)",  "Br  4  la  -»  IBr  4  I  ",  Ke2,  RateTag), 

{"(Ke3)",  "I  4  Bra  -»  IBr  4  Br  ",  Ke3,  RateTag), 

{"(Ke4)",  "I  4  IBr  -»  la  4  Br  ",  Ke4,  RateTag),  {"",  "",  ""}, 

{"(Krl)",  "Br  4  Br  4  IBr  ^  Bra  4  IBr  ",  Krl,  RateTag), 

{"(Kr2)",  "Br*  4  Br  4  IBr  -»  Bra  4  IBr  ",  Kr2,  RateTag), 

{"(Kr3)",  "Br  4  I  4  IBr  -»  2IBr  ",  Kr3,  RateTag), 

{"(Kr4)",  "Br*  4  I  4  IBr  -♦  2IBr  ",  Kr4,  RateTag), 

{"(Kr5)",  "I*  4  Br  4  IBr  -♦  2IBr  ",  KrS,  RateTag), 

{"(Kr6)",  "I  4  I  4  IBr  -4  la  4  IBr  ",  Kr6,  RateTag), 

{"(Kr7)",  "I*  4  I  4  IBr  -4  la  4  IBr  ",  Kr7,  RateTag)};  t=.; 

Print ["NnRelative  Magnitudes  of  Kinetic  Processes  at  t  =  ",  N[tplot],  "  s:"] 

Print [TableForm[KList,  TableSpacing ->  (1,  2}]];  t  =  .; 

(For  Coupler  Reflectivity  =  0.895) 

Relative  Magnitudes  of  Kinetic  Processes  at  t  =  0.01  s: 
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I£[a4  ==  2,  Goto[EndSensl]  ]  ; 

CoeffLists  {{Ke2,  Ke3,  Kr3,  Kr4,  KrS,  FlowInIBr},  {"IBr  PoEulation  (-f)"}/ 

{"ke2",  "ke3",  "kr3",  "kr4",  "krS",  "InFlow"},  {-PunpA,  -Kel,  -Ke4,  -FlowOutIBr} , 
{"IBr  Population  (-)"},  {"Photolysis",  "kel",  "ke4",  "OutFlow"}, 

{^IBr  *  PunpA,  ^Br2  *  PunpB) ,  {  "Br  (P1/2 )  Population  (+)"}, 

{ "IBrXnPhotolysis",  "BrsNnPhotolysis"} , 

-  Flatten  [  Prepend  [{Kr2,  Kr4,  FlowOutBrStar} ,  (luench]], 

{"Br(Pi/2)  Population  (-)"},  {"kql",  "kq2",  "kq3",  "kq4",  "kqS",  "kq6",  "A21", 
"kr2",  "kr4",  "OutFlow"}, 

Flatten [ Prepend [  {  (1  -  ^IBr)  *  PunipA,  (1  -  ^Br2)  *  PuiqpB,  Ke3,  Ke4} ,  quench]  ] , 
{"Br{P3/2)  Population  (+)"},  {"kql",  "hq2",  "kq3",  "kq4",  "kqS",  "kq6",  "A21", 
"IBr  Photo",  "Br2  Photo",  "ke3",  "ke4">,  {-Kel,  -Ke2,  -2Krl,  -Kr2, 

-Kr3,  -Kr5,  -FlowOutBr),  {"Br(P3/2)  Population  (-)"}, 

{"kel",  "ke2",  "krl",  "kr2",  "kr3",  "kr5",  "OutFlow"), 

{<#>Iod2 * PumpC} ,  {"I(Pi/j)  Population  (+)"},  {"I2  Photo"},  {-Kq7,  -Kq8,  -Kq9, 
-KqlO,  -KrS,  -Kr7,  -FlowOutlStar},  {"I(Pi/2)  Population  (-)"},  {"kq7",  "kq8", 
"kq9",  "A21",  "krS",  "kr7",  "OutFlow"},  {PunpA,  (2-i^Iod2)  *PunipC,  Kel,  Ke2}, 
{"I(P3/2)  Population  (+)"},  {"IBr  Photo",  "I2  Photo",  "kel",  "ke2"}, 

{-Ke3,  -Ke4,  -Kr3,  -Kr4,  -2Kr6,  -Kr7,  -FlowOutlod} , 

{"I(P3/2)  Population  (-)"},  {"ke3",  "ke4", 

"kr3",  "kr4",  "kr6",  "kr7",  "OutFlow"},  {Kel,  Krl,  Kr2,  FlowInBr2}, 

{"Br2  Population  (+)"},  {"kel",  "krl",  "kr2",  "InFlow"}, 

{-PuiqpB,  -Ke3,  -FlowOutBr2}, 

{"Br2  Population  (-)"},  {"Br2\nPhotolysis",  "ke3",  "OutFlow"}, 

{Ke4,  Kr6,  Kr7,  FlowlnIod2},  {"I2  Population  (+)"}, 

{"ke4",  "kr6",  "kr7",  "InFlow"},  {-Ke2,  -Flow0utlod2}, 

{"I2  Population  (-)"},  {"ke2",  "OutFlow"}}; 

LabelList  =  {"[IBr]  \I  \  (cntX-'-lX)  ",  "\!  \  ( [Br\-^*\)  ]  X!X(cmX*-3X)  ", 

"[Br]  X!X(cmX*-3X)",  "X! X( [IX**X) ]  X!X(omX*-3X)", 

"[I]  X!X(canX^-3X)",  "[Br2]  X!X(cmX*-3X) ",  "[I2]  X!X(cmX'‘-3X)"}; 


CoeffPlot  =  {};  p  =  -2; 

VIhile[  (p  =  p-f  3)  <s  40, 

AppendTo[ CoeffPlot,  Plot [Evaluate [CoeffLlst[ [p] ] ] , 

{t,  0,  tplot  /  1000}  , 

PlotLabel ->  Sty leFonn[SequenceFoxin[ "Kinetic  Contributions  to  ", 

Extract  [Coef  f List  [  [p  +  1]  ] ,  1]  ] , 

FontWeight  ->  "Bold",  FontSize  ->  11]  ,  PlotStyle  -> 

{{GrayLevol[0]},  {Hue[0.07] ,  Dashing[{ .01}]  },  {Hue [ 0. 6] ,  Dashing [{.03,  .01}]}, 
{Hue[0.32],  Dashing[{.02}]}, 

{(:U:aylievel[0.7] },  {Hue[0.55] ,  Dashlng[{.04,  .01}]}, 

{HUe[0.78],  Dashing[{0.02,  0.01}]},  {Hue[0.12],  Dashing[{ .01,  .02}]}, 
{GrayLevel [0.85]}, 

{Rue[0.85],  Dashing[{.03}]},  {Rue[0.65],  Dashing[{ .01,  .03}]}, 

{Hue[0.78],  Dashing [{0.02,  0.01}]}},  PlotLegend  ->  CoeffLlst[  [p+ 2]  ] , 
LegendSize ->  {0.4,  .85}, 

LegendBackground  ->  GrayLevel [0. 95 ] ,  LegendPositlon->  {1,  -0.3}, 
LegendShadow ->  {0.015,  -0.015},  LegendLabel ->  Sty leFozin[ "Kinetic  Process", 
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FontSlant  ->  "Italic"] ,  PlotRange  ->  All,  Frame  ~>  True, 

DisplayFuxictlon->  Identity, 

FrameIiabel->  {"  t  (s)  ",  LabelList[  [Round[  ( (p/ 3)  +  1)  /  2]  ]  ]  }]  ]  ]  ; 

p  =  0;  While[  (p  =  p  +  1)  <=  14, 

Shov7[ 

CoeffPlot[  [p]  ] ,  DisplayFunction->  $DisplayFunction,  ImageSize  ->  {572,  337}]  ]  ; 
Label  [EndSensl] ; 


147 


[IBr]  cm“^  [IBr]  cm' 


102« 

102« 

10^^ 

0 


0 


-2 

lO^o 

-4 

10^ 

-6 

10“ 

-8 

10“ 

-1 

10^' 

-1.2 

10^' 

1.75 

1.5 

1.25 

1 

7.5 

5 

2.5 


cn 


2  10^® 

1.5  10^® 

1  10“ 

5  10'® 

0 


0 

-5  10'® 
-1  10“ 
-1.5  10“ 

-2  10“ 
-2.5  10“ 


Kinetic  Contributions  to  Br(P3/2)  Population  (+) 


Kinetic  Contributions  to  Br(P3/2)  Population  (-) 


150 


[I2]  cm  ^  [I2]  cm 


■  CW  Model 


Stim  Emission,  kql/kq2/kq3  Quenching,  kr6  Recombination  and  kel/kel/  ke3/  ke4  Exchange  Rxns: 


I£[a5  ==  2,  Null, 

CWlase  =  Flatten[FullSinv>li£y[Solve[{ 

(★  lod  *)  0  ==  Puiryp-  (Iodd*kke3*  (x*  IBrr) )  -  (Iodd*kke4*  IBrr)  + 

(Brr  *  kkel  *  IBrr)  +  (Brr  *  kke2  *  (k  *  IBrr) )  -  (2  lodd^  *  kkr6  *  IBrr)  , 


(Ythr  Iv  \ 

hh  V  } 

BrStarr  ( (kkql  *  IBrr)  +  (kkg2  *  lodd)  +  (kkg3  *  IBrr  *  x) ) , 

(  ythr  Iv  \ 

(*  Br  *)  0  ==  (1  -  0t)  Puiup  +  -  +  (lodd*  kke3*  (x*  IBrr) )  + 

\  hhv  j 

BrStarr*  ((kkql* IBrr)  +  (kkq2*Iodd)  +  (kkq3*  IBrr*x) )  + 

(kke4  *  lodd  *  IBrr)  -  (Brr  *  kkel  *  IBrr)  -  (Brr  *  kke2  *  (k  *  IBrr) )  , 

(*  Iv  *)  (BrStarr-  (1/2)  Brr)  ==ythr/ast}. 


{lodd,  BrStarr,  Brr,  Iv}] ] ] ] ; 


If  [a5  ==  2,  Null,  t  =  tmax;  Print ["\nKinetic  Results\n@  t  =  ",  tplot,  "s 

[I2]  Iod2Dataq  [Brs]  Br2Data<2 

"\t\t\t\t\t-^i^^=  ",  .  ,  "\t\t\t\t\t",  "-  "  ^ 


[IBr] 


IBrData^ 


"\t\t\t\t\t",  " 


[IBr] 

[IBTo] 


IBrDataq 

IBrOa 


] ;  t 


[IBr] 


IBrDataq 


Kinetic  Results 
@  t  =  0.01s  : 


[12] 

[IBr] 


0.303356 


[Brz] 

[IBr] 


=  0.306765 


[IBr] 

[IBro] 


=  0.66934 
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-  Iod2Data<2  Br2Data<x 

If  |a5  ==  2,  Hull,  t  =  tnax;  I2frac  = - ;  Br2£rac  = - ; 

^  IBrDataq  IBrDataq 

IBrDataq 

IBrfrac  =  - ;  t  = . ; 

IBrOg 

Cone 

RpCW[IBrN_,  ConcJ  =  -  (I^pTot  [IBrN,  Br2f rac  *  IBrN,  I2f rac  *  IBrN] )  ; 

SCq 


Assign  = 

{hh  ->  h,  V  ->  vlase,  ast  ->  ase,  x  ->  Br2frac,  x  ->  I2£rac,  kkel  ->  kel,  kkr6  ->  kr6, 
kke2  ->  ke2,  kke3  ->  ke3, 

kke4  ->  ke4,  L  ->  0.01  Lg^,  kkql  ->  kql,  kkq2  ->  kq2,  kkq3  ->  kq3, 

Ythr  ->  rth,  <l>t  ->  (^IBr,  Pump  ->  RpCW  [  IBrfrac  *  IBrOq,  Cone] ,  IBrr  ->  IBrfrac*  IBrOq}  ; 
IntCW[Conc_]  =  Evaluate  [Iv  / .  CWlase]  / .  Assign; 

IodCW[Conc_]  ~  Evaluate  [lodd /.  CWlase]  /.Assign; 

BrStarCW[Conc_]  =  Evaluate  [BrStarr  / .  CWlase]  / .  Assign; 

BrCW[Conc_]  =  Evaluate[Brr  / .  CWlase]  / .  Assign;] 

I£[a5  ==  2,  Null, 

{IntCW[SCq],  IBrfrac *IBr0q,  IodCW[SCq] ,  BrStarCW[SCq]  ,  BrCW[SCq]}] 

{73154.7,  1.51764x10^®,  1.03467x10^®,  3.04542x10^^  1.93211x10^®} 

Output  Power  [W  jerr?^  (Based  on  Mean  Circulating  Photon  Cavity  Intensity): 

[Compare  to  full  kinetic  result  using  IBr  rate  package] 


If  [a5  ==  2,  Null,  t  =  trnax; 

.  IntCWtvFloWq,  SCo] 

Print  [pout  =  - ^ - p  *  Lg,  (1  -  Rcoup,) ,  ",  ",  PowerDataq]  ]  i 


t  =  .; 

3840.62,  3195,31 


Percent  deviation  from  result  of  IBr  kinetic  package: 


I£[a5  ==  2,  Null,  t  =  tmax; 

Print  [Dev  =  N[  (pout  ~  PowerDataq)  /  PowerDataq  *  100,  4]  ,  "%  Deviation"]  ;  t  = . ;  ] 

20.2%  Deviation 


Hyperlink  To: 
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■  Recombination  Analysis  of  EBr  Photofragments 
(Absent  Photolysis  Source  &  Stimulated  Emission  Processes) 

I£[a6  ==  2,  Goto[EndRecam]  ] ; 

ClearAll[t8weep,  tree,  IBrOut,  IStarOut,  lodOut,  BrStarOut,  BrOut,  Iod20ut, 
Br20ut,  ZBR,  lOD,  XSTAR,  BRSTAR,  BR,  IOD2,  BR2,  IBRdata,  BRSTARdata,  BRdata, 
lODdata,  ISTARdata,  IOD2data,  BR2data] ; 

tsweep  =  tplot;  tree  =  60  *  10"®; 

t  s  tsweep;  IBrOut  =  {IBrLlst[  [1]  ] } ;  IStarOut  =  {IStarI.l8t[  [1]  ] } ; 

lodOut  =  {IodLlst[  [1]  ] } ;  BrStarOut  =  {BrStarLlst[  [1]  ]  }  ;  BrOut  =  {BrLlst  [  [1]  ] } ; 

Ioa20ut  s  {Iod2List[  [1]  ] };  Br20ut  =  {Br2Llst[  [1]  ] };  t 

Tree  =  A21  +  (kql  *  IBR[t] )  (]»i2  *  IOD[t] )  -t-  (kq3  *  IOD2  [t] )  -i- 

(1«24  *  BR2  [t] )  -I-  (kgS*  BRSTAR [t])  +  (kge  *  BR[t] )  ; 


Reeonibine  :  =  NDSolve  [  { 

IBR'  [t]  == 

IBR[t]  ((kr4*BRSTAR[t]  *IOD[t])  *  (kr3*BR[t]  *IOD[t])  +  (krS  *  ISTAR[t]  *BR[t])) 
•f  (]Ge2*BR[t]  *IOD2[t])  +  (ke3*IOD[t]  •BR2[t]) 

-  IBR[t]  ((kel*HR[t])  +  (]Ge4*IOD[t])), 

IBR[0]  ss  Bxtraet[ Flatten[ IBrOut] ,  1], 

IOD'[t]  ==  (kel*BR[t]  *IBR[t])  +  (ke2*BR[t]  *IOD2[t]) 

-IOD[t]  ((ke3*BR2[t])  +  (ke4*IBR[t])  +  (kr4  *BRSTAR[t]  *IBR[t]) 

(kr3*BR[t]  *IBR[t])  +  (kr7*ISTAR[t]  *IBR[t])  -t-  (2kr6*IOD[t]  *IBR[t])), 
IOD[0]  ==  Extraet[  Flatten  [lodOut] ,  1], 

BRSTAR'  [t]  ==  -KlSTAR[t]  (rree+  (kr2*BR[t]  *IBR[t])), 

BRSTAR[0]  sa  Extraet[Flatten[BrStarOut] ,  1], 

BR’  [t]  (rree*BRSTAR[t])  +  (ke3*IOD[t]  *BR2[t])  +  (ke4*IOD[t]  *IBR[t]) 

-BR[t]  ((kel*IBR[t])  + 

(ke2  *  IOD2  [t]  )  -f  (kr2*BRSTAR[t]  *  IBR[t] )  -i-  (2krl*BR[t]  *IBR[t]) 

+  (kr3*IOD[t]  *IBR[t])  +  (krS*  ISTAR[t]  *IBR[t])), 

BR[0]  ss  Extraet[Flatten[BrOut] ,  1], 

IOD2'[t]  ==  (ke4*IOD[t]  *IBR[t])  +  (kr7  *  ISTAR[t]  *IOD[t]  *IBR[t]) 

+  (kr6*IOD[t]^*IBR[t])  -  (IOD2[t]  *ke2*BR[t]), 

IOD2[0]  Bs  Extraet[Flatten[Iod20ut] ,  1], 

BR2'[t]  B=BR[t]  ((kel*IBR[t])  +  (kr2  *  BRSTAR[t]  *  IBR[t] ) 

+  (krl*BR[t]  *IBR[t]))  -  (ke3*IOD[t]  *BR2[t]), 

ER2[0]  =B  Extraet[Flatten[Br20ut] ,  1], 

ISTAR'[t]  ==  -ISTAR[t]  (A21IStar+  (kq3*IBR[t])  +  (kqS  *  IOD2  [t] )  +  (kq9*BR2[t]) 

+  (kr7*IOT)[t]  *IBR[t])  +  {kr5*BR[t]  *IBR[t])) , 
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ISTAR[0]  ==  Extract  [ Flatten [IStarOut]  ^  1]  } 


{IBR[t],  IOD[t],  BRSTAR[t]^  BR[t] ,  IOD2[t],  BR2[t],  ISTAR[t]}, 

{t,  0,  tree},  NaxSteps  ->  4000]  ; 

IBRdata  =  Abs[Evaluate[IBR[t]  /  •  Recombine]  ] ; 

BRSTARdata  =  Abs  [Evaluate [BRSTAR[t]  / .  Recombine]  ]  ; 

BRdata  =  Abs  [Evaluate  [BR[t]  / .  Recombine]  ]  ; 
lODdata  =  Abs  [Evaluate  [IOD[t]  / .  Recombine]  ] ; 

IOD2data  =  Abs  [ Evaluate  [IOD2  [t]  /  •  Reconibine]  ]  ; 

BR2data  =  Abs  [ Evaluate  [BR2  [t]  /  •  Recombine]  ]  ; 

ISTARdata  =  Abs[Evaluate[ISTAR[t]  / .  Recombine]  ]  ; 

RRecom=  {IBRdata,  "Recombination  Evolution  of  [IBr] ",  "[IBr]  (cm"^)",  lODdata, 
"Recombination  Evolution  of  [I(P3/2)  ]  ",  "  [I]  (enf^)", 

BRSTARdata,  "Recombination  Evolution  of  [Br(Pi/2)]",  "[Br*]  (cm'^)",  BRdata, 

"Recombination  Evolution  of  [Br(P3/2)]",  "  [Br]  (cm"^)  ",  IOD2data, 
"Recoshbination  Evolution  of  [I2]",  "[I2]  (cm’^)",  BR2data, 

"Recombination  Evolution  of  [Br2]",  "[Br2]  (cm"^)  ",  ISTARdata, 

"Recombination  Evolution  of  [I(Pi/2)  ]  "#  "  [I*]  (emr^)  "} ;  RecomList  =  {}; 


X  =  -1;  While[  (x  =  x+  1)  <=  6, 

AppendTo[RecatrtList,  {Plot [RRecom[  [  (3 x)  +1]],  {t,  0,  tree),  PlotLabel -> 
StyloForm[RReco(m[  [  (3  x)  +  2]  ] ,  FontWeight  ->  "Bold",  FontSize  ->  11] , 

PlotRange ->  All,  Frame ->  True,  FranieIiabel->  {"  t  (s)  ",  RRecoim[  [  (3 x)  +  3]  ]  }, 
DisplayFunction  ->  Identity]  }  ]  ]  ; 

p  =  0;  While[  (p  =  p  +  1)  <=  7, 

Show[RecoimList  [  [p]  ]  ,  DisplayFunction ->  $DisplayFunction, 

^  BnageSize  ->  {522,  386}]  ]  ;  p  =  .;  t  =  tree; 

Print  ["\nRecombined  Population  Densities  at  t  =  ",  N[trec] ,  "  s:"]; 

DistList[  [1,  2]  ]  =  IBRdata[  [1]  ]  ; 

DistList[  [3,  2]  ]  =  Round [ BRSTARdata [  [1]  ]  ]  ;  DistList  [  [4,  2]  ]  = 

BRdata[[l]]; 

DistList[  [5,  2]  ]  =  Round [ ISTARdata [  [1]  ]  ]  ;  DistList[  [6,  2]  ]  =  IODdata[  [1]  ]  ; 
DistList[  [7,  2]  ]  =  BR2data[  [1]  ]  ;  DistList[  [8,  2]  ]  =  IOD2data[  [1]  ]  ; 

Print  [  TableFozm  [ 

Prepend[Take  [DistList,  {3,  8}],  Extract  [DistList,  1]],  Table^cing->  {1,  1}]]; 
Print [ "Fractional  Recovery  of  Initial  IBr  Precursor:  ", 

Extract  [IBRdata,  1]  /  IBrO]  ;  t  = . ; 

Label  [EndRecom] ; 
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5  lO'® 

4  10‘® 

^  3  10'* 

I 

2  10'* 

1  lO'* 

0 

1  10'3 

8  lO'^ 

6  10'^ 

4  10'^ 

2  10'^ 

0 


60 


4.6  lO” 


4.5  10’’ 


^  4.4  10'^ 


4.3  10” 


4.2  10” 


4.6  10” 


4.5  10” 


^  4.4  10” 


4.3  10” 


4.2  10” 
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Recombined  Population  Densities  at  t  =  60.  s: 


[IBr]  : 

1.60807x10'-® 

cm"^ 

[Br(Pv2)]  : 

0 

cm"^ 

[Br(P3/2)]  : 

2.08493x10® 

cm"^ 

[I(Pl/2)]  : 

0 

cm"^ 

[I(P3/2)]  : 

1.73502x10® 

cm"^ 

[Br2]  : 

4.20373x10'’' 

cm"^ 

[I2]  : 

4.20346x10''' 

cm"^ 

Fractional  Recovery  of  Initial  IBr  Precursor:  0.709221 
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